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FINAL  REPORT 


14.  AOairoof 


A  primary  concern  of  the  U.S.  Coast  Guard  is  the  development  of  a  system  using 
Loran-C  to  enable  vessels  to  accompl ish  precision  navigation  in  harbors,  harbor 
entrances  (HHE) ,  and  restricted  waterways.  The  need  for  this  system  is  especially 
great  during  periods  of  low  visibility  or  when  more  conventional  aids  to  naviga¬ 
tion  are  not  available. 

A  visual  survey  method  is  the  basic  approach  for  a  Loran-C  Time  Difference  (TD) 
grid  survey  in  restricted  waterways.  The  shipboard  visual  navigation  approach 
relates  the  surveyed  Time  Differences  (TD's)  to  the  world  of  the  mariners. 

The  result  is  a  set  of  waypoints  ( i . e . ,  intersection  of  two  visual  ranges)  mea¬ 
sured  in  TD's  which  relate  to  the  actual  location  of  channel  edges,  shoals,  buoys, 
and  other  aids  to  navigation.--, 

This  report  describes  the  Time  Difference  Survey  System  (TOSS)  which  was  developed 
at  the  U.S.  Coast  Guard  R&0  Center  to  accurately  and  efficiently  measure,  record, 
and  process  the  TD  information.  _ 
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1.0  GENERAL  INFORMATION 

1.1  Introduction 


The  TDSS  is  a  data  acquisition  system  designed  to  collect  Loran-C 
time  difference  and  vessel  position  data  for  Loran-C  harbor  survey  applica¬ 
tions.  The  system  provides  a  real-time  graphic  display  of  the  data  collected 
and  calculates  cumulative  statistics  including  linear  regression  parameters. 

The  TDSS  consists  of  a  Hewlett-Packard  HP9845B  desktop  calculator, 
an  AUSTRON  5000  Loran-C  monitor  receiver,  and  a  Motorola  Mini-Ranger  position¬ 
ing  system.  The  use  of  Mini-Ranger  is  optional  and  depends  on  the  survey 
applications.  The  HP9845  is  interfaced  to  the  AUSTRON  5000  via  an  RS232  link 
operated  at  9600  baud.  The  HP9845  and  Mini-Ranger  are  connected  via  16-bit 
and  BCD  interfaces.  The  16-bit  interface  is  used  for  control  functions  and 
the  BCD  interface  for  data  transfer.  A  real-time  clock  option  on  the  HP9845 
is  used  to  generate  sample  requests  from  the  AUSTRON  5000  and  Mini-Ranger. 

1 .2  General  Description 

1.2.1  AUSTRON  5000  Loran-C  Monitor  System 

The  AUSTRON  Model  5000  Loran-C  Monitor  System  is  a  computer- 
controlled  Loran-C  system  specifically  designed  to  do  real-time  data  gathering 
for  up  to  four  Loran-C  chains  (see  figure  1-1).  The  receiver  is  capable  of 
tracking  more  than  one  chain  and  can  be  used  on  a  time-shared  basis  by  more 
than  one  user.  The  system  consists  of  a  receiver  section  which  filters  and 
amplifies  the  Loran-C  signal  and  then  digitizes  samples  upon  command  from  the 
computer  section.  The  receiver  is  controlled  by  a  POP-8  minicomputer  (see 
figure  1-2).  Processed  data  in  the  form  of  time  differences,  envelope  data, 
receiver  gain,  and  noise  data  is  transmitted  from  the  computer.  The  receiver 
initialization,  control,  and  system  checks  for  proper  tracking  is  done  through 
various  commands.  (See  appendix  A.)  The  status  of  the  chain  is  carefully 
monitored  and  should  an  abnormal  condition  occur,  the  receiver  will  recognize 
this  condition  and  respond  with  a  corresponding  error  message.  For  a  complete 
listing  of  messages,  see  the  AUSTRON  5000  Fault  Command  Dictionary  in  appendix 
B. 


1.2.2  Hewlett-Packard  9845B  Computer 

The  H/P  9845B  is  a  high-speed  versatile  computer  utilizing 
the  Enhanced  BASIC1  language.  (See  figure  1-3.)  It  is  designed  for  both 
the  programmer  and  the  system  operator  since  it  can  be  used  interactively  for 
writing  and  debugging  programs  and  entering  data. 

The  H/P  9845B  system  features  the  following: 

Keyboard  -  Full  128-character  ASCII  set,  color-coded  and 
configured  like  an  office  typewriter. 


^Beginner's  All-Purpose  Symbolic  Instruction  Code 
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CRT  -  80-character  by  24-functional- line  Cathode  Ray 
Tube  (CRT)  display. 

ROMs  -  There  are  several  plug-in  Options  Read  Only 
Memories  (ROMs)  which  provide  additional  language  capabilities  to  perform 
specific  tasks,  such  as  using  mass  storage  devices,  graphics,  I/O,  and 
advanced  programming.  i 

Internal  Printer  -  The  optional  internal  thermal  printer  '  * 
is  an  80-character  line  printer  used  for  hard-copy  output. 

Tape  Drive  -  The  two  tape  drives  built  into  the  System  t 

458  main  frame  (one  is  standard,  the  second  is  optional)  provide  an 
easy-to-use  storage  capability  of  217K  bytes  (or  about  847  physical 
records)  per  tape  cartridge. 

Language  -  The  BASIC  language  as  implemented  on  the 
System  45B  Computer  is  an  enhanced  form  of  HP  Compatible  BASIC. 

1.2.3  Mini-Ranger  III  System 

The  Mini-Ranger  III  System  (MRS  III)  shown  in  figure  1-4  is 
used  to  accurately  determine  the  position  of  a  mobile  unit  such  as  a  vessel, 
aircraft,  or  land  vehicle.  This  position  is  determined  with  respect  to 
Reference  Stations  located  at  known,  fixed  points. 

The  MRS  III,  operating  on  the  basic  principle  of  pulse  radar, 
uses  a  transmitter  (located  on  the  mobile  unit)  to  interrogate  the  reference 
stations.  The  elapsed  time  between  the  transmitted  interrogation  produced  by 
the  MRS  III  transmitter  and  the  reply  received  from  each  reference  station  is 
used  as  the  basis  for  determining  the  range  to  each  reference  station.  This 
range  information,  displayed  by  the  MRS  III  together  with  the  known  location 
of  each  reference  station,  can  be  tri laterated  to  provide  a  position  fix  of 
the  mobile  unit.  The  standard  MRS  III  operates  at  1 ine-of-sight  ranges  up  to 
(approximately  37  kilometers)  20  nautical  miles  and,  with  appropriate  calibra¬ 
tion,  the  probable  range  measurement  accuracy  is  better  than  3  meters  (10 
feet).  A  unique  coding  system  is  employed  in  the  MRS  III  to  minimize  false 
range  readings  caused  by  radar  interference  and  to  provide  selective  reference 
station  interrogation.  The  operating  frequencies  of  the  MRS  III  can  be  set 
(at  the  factory)  above  or  below  the  operating  frequencies  of  on-board  radar 
systems  to  eliminate  possible  interference  with  normal  radar  operation. 

1.2.4  U3  Uninterruptible  Power  Supply  / 

The  UPS  unit  contains  a  battery  charger  and  a  static  inverter 
(see  figure  1-5).  In  normal  operation,  the  ac  power  is  converted  to  dc  , 

power.  The  dc  power  from  the  charger  supplies  the  inverter  and  maintains  the 
batteries  at  full  charge.  The  inverter  changes  the  dc  power  back  to  ac  and 
powers  the  critical  load.  When  the  ac  line  fails,  the  inverter  continues  to 
supply  normal  power  to  the  load  drawing  power  from  the  batteries.  If  an 
inverter  malfunction  occurs  or  the  inverter  is  turned  off,  the  load  is  auto¬ 
matically  transferred  to  the  ac  bypass  line. 
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1 .3  Equipment  Specifications 

1.3.1  AUSTRON  5000  Monitor  System 


Antenna 

Antenna  Coupler 
Antenna  Cable 
NOTCH  Filter 
Receiver  Power 
Voltage 
Frequency 
Consumption 
PDP-8/E  Power 
Voltage 
Frequency 
Consumption 
Weight 

Software  Version 


8'  whip 

W0783 

RG-22 

GCF-W-379-12A 

115V  +  15V  rms 
48  Hz  to  420  Hz 
0.9  amp  rms 

115  VAC 
60  Hz 
150  watts 
138  pounds 
2/8/77 


1.3.2  H/P  9845B  Computer 


-  Memory 

186K  bytes 

-  ROMs 

I/O 

984 12A 

Graphics 

984 1 1 A 

-  Real-Time  Clock 

98035A 

-  Interfaces 

Serial  I/O 

98036A 

BCD 

98033A 

16-Bit 

98032A 

-  Power 

Vol  Uge 

108  to  126 

Frequency 

48-66  Hz 

Consumption 

275  va 

-  Weight 

89.5  pounds 

Mini-Ranqer  III  System 

-  Range  Console 

-  Receiver-Transmitter 

-  Two  Remote  Reference  Stations 

-  Batteries  (for  each  reference 

station) 

-  Power: 

Reference  Station 

24  to  30  VOC 

Range  Console 

105  to  125  VAC 

-  Consumption: 

Reference  Station 

13  watts 

Receiver/Tr ansmi tter 

17  watts 

Range  Console 

60  watts 

t 
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1.3.4  Uninterruptible  Power  Supply 


-  Inverter 

-  Two  Battery  Units 

-  Voltage  Monitor  Panel 

-  Power 

-  Weight 

1.4  Reference  Documents 


82102-12 

2566-2 

105  to  130  VRM 
450  pounds 


1.  AUSTRON  Model  5000’  Loran-C  Monitor  System  Maintenance  Manual, 
September  1977,  P/N  12797049. 

2.  P0P-8/E  Processor  Maintenance  Manual,  Volume  1,  No. 

EK-8E001 -MM-004 . 

3.  PDP-8/E  Internal  Bus  Options  Maintenance  Manual,  Volume  2,  No. 
EK-8E002-MM-005 . 


4.  P0P-8/E  External  Bus  Operations  Maintenance  Manual,  Volume  3, 

No.  EK - 8E 00 3 -MM - 00 4 . 


5.  PDP-8/E  Engineering  Drawings. 

6.  Hewlett-Packard  System  45B  Desktop  Computer  Operating  and 
Programming  Manual,  Part  No.  09845-91000. 

7.  Hewlett-Packard  System  45B  Desktop  Computer  Owner's  Manual, 

Part  No.  09845-91005. 

8.  Hewlett-Packard  System  45B  Desktop  Computer  Graphics  ROM 
Programming,  Part  No.  09845-91050. 

9.  Hewlett-Packard  System  458  Desktop  Computer  1/0  ROM  Program¬ 
ming,  Part  No.  09845-91060. 

10.  Hewlett-Packard  System  45B  Desktop  Computer  Quick  Reference 
Manual,  Part  No.  09845-9 1015 . 

11.  System  45B  Asynchronous  Terminal  Emulator,  Part  No.  09845-10040. 

12.  Hewlett-Packard  98035A  Real-Time  Clock  Installation  and  Opera¬ 
tion  Manual,  Part  No.  98035-9000. 

13.  Hewlett-Packard  98033A  BCD  Interface  Installation  and  Service 
Manual,  Part  No.  98033-9000. 

14.  Hewlett-Packard  98d32A  16-Bit  Interface  Installation  and 
Service  Manual,  Part  No.  98032-9000. 

15.  Hewlett-Packard  98036A  Serial  1/0  Interface  Installation  and 
Service  Manual,  Part  No.  98036-9000. 
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16.  Maintenance  Manual  for  Mini-Ranger  III  System  (MRS  III), 
Document  No.  68- P04884F. 

17.  Operation  and  Installation  Manual  for  Mini-Ranger  III  System 
(MRS  III),  Document  No.  68-P04883F. 

18.  Uninterruptible  Power  Systems  U3  Product  Family  Technical 
Manual,  933-LU063-TM  Revision  D. 

19.  State  Plane  Coordinates  by  Automatic  Data  Processing,  U.S. 
Government  Printing  Office,  Publication  62-4. 
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2.0  INSTALLATION 


2.1  Field  Installation  of  AUSTQN  5000  Loran-C  System 

The  Austron  system  console  is  best  installed  in  the  CPO  quarters  of 
a  65-foot  tug  and  in  the  chartroom  of  an  180-foot  buoy  tender.  This  provides 
accessibility  to  the  operator  and  is  out  of  the  way  of  the  crew. 

1.  With  all  units  removed  mount  the  console  to  a  secure  platform. 

2.  Install  the  AUSTRON  receiver  in  the  console  using  the  exist¬ 
ing  slides  mounted  in  the  top  section  of  the  console. 

3.  Install  the  P0P8/E  unit  into  the  existing  slides  mounted  in 
the  bottom  of  the  console. 

4.  Secure  the  AUSTRON  receiver  with  front  panel  screws. 

5.  Secure  the  P0P8/E  with  rubber  strap  or  stretch  cord. 

6.  Turn  the  console  on/off  switch  to  off. 

7.  Turn  the  P0P8/E  on/off  switch  to  off. 

8.  Connect  the  (3)  data  interconnect  cables  between  the  AUSTRON 
receiver  and  the  P0P8/E.  NOTE;  THE  CABLES  ARE  KEYED  TO  GO 
ONLY  ONE  WAY. 

9.  Check  tne  (3)  termination  plugs  on  the  AUSTRON  receiver  for 
tight  connection. 

10.  Check  jumper  plugs  Jl,  and  J2  on  the  PDP8/E  for  tightness. 

11.  Mount  the  antenna  coupler  W0783  to  a  secure  antenna  platform 
or  mast. 

12.  Screw  in  a  102  inch  Loran-C  whip  into  the  coupler. 

13.  Connect  antenna  cable  to  the  coupler. 

14.  Connect  antenna  cable  to  the  AUSTRON  receiver  antenna  connec¬ 

tion. 

15.  Check  circuit  breaker  and  fuses  on  back  of  the  P0P8/E. 

16.  Check  fuses  on  the  back  of  the  AUSTRON  receiver. 

17.  Connect  AC  jumper  cable  between  AUSTRON  receiver  and  PDP8/E. 

18.  Connect  the  AC  input  cable  from  PDP8/E  to  the  AC  outlet  strip 

black  terminal. 

19.  Connect  the  AC  input  cable  to  the  voltage  monitor  panel 
outlet  in  the  TOPAZ (UPS)  console. 

2.2  Field  Installation  of  TOPAZ  Uninterruptable  Power  Supply  (UPS) 

The  (UPS)  system  is  optional  and  its  use  will  depend  on  the  stabili¬ 
ty  of  the  power  source  that  will  be  utilized  with  the  Austron  system. 

1.  With  all  units  removed  except  the  voltage  monitor  panel, 
mount  the  TOPAZ  console  to  a  secure  platform  with  angle  iron 
and  1/4  inch  bolts. 

2.  Install  inverter  and  the  (2)  battery  units  into  the  console, 
with  the  inverter  unit  going  on  top. 

3.  Secure  the  units  in  with  the  front  panel  screws  and  the  rear 
support  brackets. 

4.  Install  the  jumper  cable  between  the  two  battery  units. 

5.  Connect  the  DC  input  cable  to  the  inverter  and  the  bottom 
battery  unit. 

6.  Connect  the  AC  input  cable. 
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7.  Plug  in  the  voltage  monitor  panel  cable  into  one  of  the 
inverter  AC  output  sockets. 

8.  Check  the  battery  unit  fuses  and  the  inverter  unit  fuse  for 
proper  value. 

Fuse  Specifications 

Battery  Unit  -  BAF  30 
Inverter  Unit  -  BAF  20 

9.  Plug  the  input  AC  cable  into  the  isolation  transformer. 

10.  With  all  switches  off,  plug  the  isolation  transformer  into 

the  power  source. 

NOTE:  CAUTION  IS  ADVISED  AS  INPUT  120  VAC  IS  DIRECTLY  CONNECTED  TO  INPUT  AND 
OUTPUT  TERMINALS  OF  THE  INVERTER  WITH  ALL  SWITCHES  OFF. 

2.3  H/P  9845B  Desktop  Computer 

The  9845B  is  best  when  installed  in  the  pilothouse  where  visual  and 
other  navigational  aids  are  present  for  assistance  in  surveying. 

The  standard  9845B  does  not  come  completely  equipped  with  all  the 
essential  features  needed  to  perform  the  Data  Collection  task.  Several 
options  are  required  to  meet  all  specific  tasks.  (See  Section  1.2.2.) 

NOTE:  Set  Baud  Rate  desired  on  98036A  interface  prior  to  operation. 


CAUTION:  ALWAYS  SWITCH  OFF  THE  COMPUTER  WHEN  INSERTING  OR  REMOVING 

ROMS  AND  INTERFACES.  FAILURE  TO  DO  SO  COULD  DAMAGE  EQUIPMENT 

2.4  System  Interconnection 

2.4.1  9845B  to  P0P8/E  Data/Control  Link 

The  interconnection  between  the  9845B  Computer  and  the  M8655 
Control  Card  in  the  PDP8/E  Computer  is  accomplished  by  use  of  a  standard 
Digital  Cable  assembly  (BCO'IV).  Refer  to  PDP8/E  Engineering  Drawing  for 
wiring  specifications. 

2.4.2  9845B  to  MRS  III  Control  Link 

The  interconnection  between  the  9845B  Computer  and  the 
Mini-Ranger  III  is  accomplished  by  use  of  the  standard  H/P  98032A  I/O  inter¬ 
face  which  provides  16  bit  data  exchange.  The  wiring  configuration  used  for 
the  (TOSS)  system  is  detailed  in  table  2-1.  Refer  to  the  Installation  and 
Service  Manual  for  the  98032A  16  bit  interface  for  the  technical  specifica¬ 
tions  and  operation  description. 
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TABLE  2-1  -  HP98032A 

16  BIT  INTERFACE 

1J2 

Ext  Control 

Wire  Code 

A 

Spare 

Not  used 

B 

RT  No.  1  &  2  off 

Not  used 

C 

Bite  Normal 

96  white/blue 

D 

Remote  B-2 

934  white/ or ange/yellow 

E 

Remote  B-4 

936  white/orange/blue 

F 

Remote  A- 1 

90  white/black 

G 

Remote  A-3 

92  white/ red 

H 

Remote  8- 1 

97  white/violet 

J 

Remote  B-3 

935  white/orange/green 

K 

Nav  xmit  req 

94  white/ye  How 

L 

Remote  A- 2 

91  white/brown 

M 

Ext  sync 

Not  used 

N 

Remote  A- 4 

93  white/orange 

P 

Xmit  status 

Not  used 

R 

Radar  blanking 

Not  used 

S 

Nav  switch 

95  white/green 

T 

+5  vdc 

Not  used 

U 

Micro  switch 

Not  used 

V 

Ground 

90  white 

Tie 

the  following  wires  to  ground  (white) 

9 

-  white 

904  -  white/black/yellow 

-  inner  bare  wire 

905  -  white/black/green 

903 

-  white/black  orange 

906  -  white/black  blue 

Tie  the  following  wires  together 


98  -  white/gray 
8  -  gray 

2.4.3  984 5B  to  MRS  III  Data  Link 

The  interconnection  between  the  98458  computer  and  the 
Mini-Ranger  HI  is  accomplished  by  use  of  the  standard  H/P  98033A  BCD  Inter¬ 
face  which  provides  data  transfer  in  bit-parallel  and  digit-paraV>el  form. 
The  wiring  configuration  used  is  detailed  in  table  2-2.  Refer  to  the  98033A 
BCD  Installation  and  Service  Manual  for  the  technical  specifications  and 
operations  description. 
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TABLE  2-2  -  H/P  980  33A  BCD  INTERFACE 


I J5 


On  BCD  Interface  Color 


A 

Spare 

B 

Not  used 

C 

Not  used 

D 

Not  used 

- 

E 

Not  used 

F 

Range  A  10°-1 

923 

white/red/orange 

G 

Range  A  10°-2 

924 

wh ite/ red/ye 1  low 

H 

Range  A  10°-4 

925 

white/red/green 

J 

Range  A  10*3-1 

905 

white/black/green 

K 

Range  A  10*3-2 

90' 6 

white/black/blue 

L 

Range  A  10^-4 

90'7 

white/black/violet 

M 

Range  a  10*3-8 

908 

white/black/gray 

N 

Range  A  10-3-1 

901 

white  black/brown 

P 

Range  A  10-3-2 

902 

white/ black/ red 

R 

Range  A  10-3-4 

903 

white/black/orange 

S 

Range  A  10-3-8 

944 

white/black/yellow 

T 

Not  used 

U 

Not  used 

V 

Not  used 

W 

Not  used 

X 

Ext  Hold 

8 

Gray 

Y 

Not  used 

Z 

A-BCO  Flag 

918 

white/brown/gray 

a 

Range  A  10°-8 

926 

white/ red/ blue 

b 

Range  A  10]-1 

912 

white/ brown/ red 

c 

Range  A  10 1-2 

913 

wh  i  te  /  br  own  /  or  an  ge 

d 

Range  A  104-1 

94 

white/yellow 

e 

Range  A  104-2 

95 

white/green 

f 

Range  A  104-4 

96 

white/blue 

g 

Range  A  104-8 

97 

white/violet 

h 

A  Code  ID  1 

945 

white/yel low/ green 

i 

A  Code  ID  2 

946 

white/yel low/ blue 

j 

A  Code  ID  4 

947 

white/yellow/violet 

k 

Ground 

m 

+5  volts 

n 

Range  A  10 ' -4 

914 

white/ brown/ye  How 

P 

Range  A  loJ-8 

915 

white/brown/green 

q 

Range  A  10|-1 

90 

white/black 

r 

Range  A  10^-2 

91 

white/brown 

s 

Range  A  10|-4 

92 

white/ red 

t 

Range  A  10^-8 

93 

white/orange 
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Tie  the  following  wires  to  ground 

0  -  black 

1  -  brown 

2  -  red 

3  -  orange 

4  -  yellow 

5  -  green 

6  -  blue 

7  -  violet 

Tie  the  following  wires  together 

98  -  white/gray 
928  -  white/red/gray 

2.4.4  Antenna  Cable 


916 

white/ brown/ blue 

917 

white/ brown/ violet 

937 

white/orange/ violet 

936 

white/ orange/blue 

935 

wh  i  te  /  or  an  ge /  g r  een 

934 

wh i te/ or  an  ge/ye 11 ow 

927 

white/red/violet 

948 

white/yel low/ gray 

The  connection  between  the  W0783  Antenna  Coupler  and  the 
AUSTRON  5000  is  accomplished  by  use  of  a  standard  RF  TVIINAX  Cable  (BELDEN 
9250)  RG-22  B/U.  (See  appendix  K  for  connector  phasing.) 

2.5  System  Initialization 

Before  operation,  the  system  should  be  installed  in  accordance  with 

section  2. 


Preliminary  Steps: 

A.  Set  Band  rate  on  98036A  Serial  I/O  Interface  to  9600.  The 
bit  rate  can  be  set  (through  the  hole  on  the  side)  without  disassembling  the 
interface.  Set  the  bit  rate  switch  to  correspond  to  the  bit  rate  of  the  data 
communications  device  connected  to  the  interface.  Here  is  a  list  of  the 
available  bit  rates  and  switch  positions  to  select  each  rate.  Rotate  the 
switch  to  the  desired  position  with  a  small  screwdriver. 

Switch  Position  Bit  Rate 


1 

9600 

—  Use 

1/16  Bit  Rate  Factor 

(bits  0 

2 

3 

4800 

2400 

and 

1  of  mode  word) 

4 

1800 

5 

1200 

6 

600 

—  Use 

1/64  Sit  Rate  Factor 

(bits  0 

7 

300 

and 

1  of  mode  word) 

8 

150 

9 

JL 

8.  Set  switches  on  the  P0P8/E  M8655  Asynchronous  Data  Control 
Card  to  match  the  98036A  Serial  I/O  Interface.  The  KL8-JA  (M8655)  Asynchron¬ 
ous  Data  Control  Card  is  provided  with  two  dual  in  line  switches  for  setting 
the  device  code  and  transmission  speed.  The  switches  are  located  in  the  lower 
right  hand  corner.  They  are  labeled  transmit  and  receive. 
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The  bit  assignments  for  the  switches  are  as  follows: 


Table  2-3.  KL8-JA  (M8655)  switch  settings 
SPEEO  SELECTION 
110  Baud  Rate 


Transmit 

Receive 

Switch# 

Position 

Switch# 

Position 

1 

= 

off 

1 

3 

off 

2 

s 

off 

2 

= 

off 

300  Baud  Rate 

1 

3 

off 

1 

s 

off 

2 

3 

off 

2 

3 

on 

9600  Baud  Rate 

1 

3 

on 

1 

s 

on 

2 

» 

off 

2 

3 

on 

DEVICE  CODE  SELECTION 

Master  Control 

3 

3 

off 

3 

3 

off 

4 

S 

off 

4 

S 

off 

5 

3 

off 

5 

3 

off 

6 

3 

on 

6 

3 

off 

7 

3 

off 

7 

3 

on 

8 

3 

off 

8 

3 

on 

2.5.1  Turn-On  Procedure 


2. 5. 1.1  TOPAZ  (UPS)  System  (Optional) 

1.  Set  CHARGER  INPUT  circuit  breaker  to  the  UP/ON 
position. 

2.  Set  the  INVERTER  circuit  breaker  to  the  UP/ON 
position. 

3.  Push  the  RESET  button  to  shift  from  AC  bypass 
to  inverter  output. 

NOTE:  The  lights  should  shift  from  red  (AC  bypass)  to  green  (inverter)  output 
line. 
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4.  Check  voltage  monitor  panel  for  proper  readings: 

-  60  HZ 

-  5  amps  input  with  batteries  at  full  charge 
(81  VOC)  and  no  load  condition. 

-  5-10  amps  with  batteries  on  charge,  no  load 
condition. 

-  5-20  amps  with  batteries  on  charge  and  under 
load. 

2. 5. 1.2  AUSTRON  5000  System 

1.  Set  console  ON/OFF  switch  to  ON 

2.  Insert  key  in  P0P8/E  OFF/POWER/PANEL  LOCK 
switch  then  turn  to  POWER  position. 

3.  Let  system  warm  up  for  15  minutes  before 
loading  any  instructions  into  the  P0P8/E. 

2. 5. 1.3  HP9845B  Computer 

Turn  on  the  system  45B  by  pressing  the  power  switch 
on  the  right-hand  side  of  the  computer.  Memory  is  tested  automatically  and 
"9845B  IS  READY  FOR  USE"  will  be  displayed  on  the  CRT  when  all  tests  are 
completed. 


2.5.2  Bootstrap  Programming  the  P0P8/E 

1.  First,  insure  that  the  computer  is  not  "RUNNING"  any 
programs  by  first  depressing,  then  raising  the  "HALT" 
switch. 

2.  Set  selector  switch  to  the  "MD"  position. 

3.  LOAD  THE  EXTENDED  MEMORY  ADDRESS  (EMA)  by  setting  the 
switch  registers  (SR)  to  field  (O'dO'O),  then  depressing 
the  "EXTO  AOOR  LOAD"  switch. 

4.  Next,  check  the  validity  of  the  setting  by  observing  the 
EMA  lamps,  they  should  be  out. 

5.  Load  the  starting  address  (0030)  by  setting  the  required 
SR  switches,  then,  depressing  "ADDR  LOAD".  Again  check 
the  validity  with  the  address  lamps. 

6.  Once  the  proper  starting  address  has  been  established, 
the  loading  of  the  BOOTSTRAP  may  begin.  Set  the 
contents  of  the  first  address  on  the  proper  SR’s  as 
designated  by  the  BOOTSTRAP  (table  2-4). 

7.  Lift  the  "OEPOSIT"  switch  once,  and  only  once,  this  will 
insert  the  contents  into  the  address  and  automatically 
increment  the  address  to  the  next  address. 

8.  After  loading  the  last  content  of  the  BOOTSTRAP,  it  is 
advantageous  to  check  the  contents  of  the  addresses  for 
errors.  This  is  accomplished  by,  returning  to  the 
starting  address  (0030),  and  depressing  the  "EXAM" 
switch  for  each  address. 

9.  Observe  the  memory  address  lamps  and  check  to  see  that 
they  agree  with  the  contents  of  the  first  address;  if 
they  do,  continue  this  procedure  until  the  entire 
program  has  been  checked. 


i 

I 
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10.  Upon  completion  of  the  checks,  return  to  starting 
address  (0030). 

11.  Set  the  SELECTOR  switch  to  the  "STATUS"  position. 

12.  Go  to  2.5.3. 

TA8LE  2-4.  BOOTSTRAP  PROGRAM 


Field  0  Location  Contents 

'  0030'  72(71 
0031  6032 
0032  6031 
0033  5032 
0034  6034 
0035  7010 
0036  7701 
0037  7004 
0040  7420 
0041  5030 
0042  3000 
0043  2042 
0044  5030 


2.5.3  Loading  the  AUSTRON  5000  Program 

1.  Load  the  bootstrap  program  as  per  section  2.5.2. 

2.  Check  for  validity  and  return  to  address  0030. 

3.  Place  the  SURVEY  program  tape  into  the  9845B  tape  drive  (T15). 

4.  Type:  LOAD  "L0A096:T15" 

5.  Press:  EXECUTE 

NOTE:  Read  steps  6-10  before  proceeding. 

6.  When  system-busy  (RUN  light)  goes  out  press:  RUN 

7.  When  3  beeps  are  heard  depress  the  "CLEAR"  then  “CONTINUE" 
switch  on  the  PDP8/E.  (You  have  10  seconds  before  program 
starts  to  load) 

8.  Observe  run  light  and  address  lamps  on  PDP8/E.  After  a  few 
seconds,  the  address  lamps  should  indicate  7675. 

9.  The  PDP8/E  addresses  read  7777  and  the  RUN  light  is  out  when 
the  program  is  loaded. 

10.  The  program  takes  approximately  30  seconds  at  9600  baud  and 
12  minutes  at  300  baud. 

11.  On  PDP8/E  load  address  0200  after  program  is  loaded. 

12.  Return  to  9845B  and  place  "SURVEY"  program  tape  into  tape 
drive  (T15). 

13.  Type:  LOAD  "SURVEY :T15" 

14.  Press:  EXECUTE 

12.  When  system  busy  light  goes  out,  press:  RUN 

13.  "RUNNING"  will  appear  in  the  display  area  on  the  CRT. 

14.  Return  to  P0P8/E  and  depress:  CLEAR  then  CONT  switch. 


15.  If  the  program  has  been  loaded  into  the  AUSTRON  correctly  the 
following  will  appear  in  the  display  area  o  f  the  9845  CRT. 


AUSTRON  SYSTEM  5000 

LORAN-C  MONITOR  TEST  VERSION  2/8/77 

16.  Press:  SFK  #8  (on-KBD) 

17.  “TELETYPE  ON"  will  appear  in  display  area 

18.  At  this  time,  the  Loran-C  chain  should  be  initialized  using 
the  AUSTRON  5000  system  commands  (appendix  A). 

19.  To  transmit  each  command  to  the  AUSTRON  follow  the  below 
procedure. 

a.  Type:  Command  you  want  to  send  i.e.,  DEF99600 

b.  Press:  EXECUTE 

c.  The  command  will  appear  on  the  display  as  it  is  echoed 
back  from  the  AUSTRON 

d.  At  this  point,  set  the  following:  Clip,  Oate,  Time, 
TMCN  (before  TMCN  is  entered,  go  off  keyboard  and  enter 
DEBUG),  etc. 

e.  When  the  AUSTRON  is  initialized  and  no  more  commands 
need  to  be  sent  depress  SFK#4  (OFF-KBD). 

20.  When  all  Loran-C  stations  are  locked  on  and  tracking  (AT)  a 
report  will  appear  in  the  display  area  in  the  following 
format: 

TABLE  2-5.  AUSTRON  REPORT 

063  07:38:44  CHAIN  1 
M  AT  071  0015  02.94  36568.37 

W  AT  088  0372  02.93  51268.20  14699.83 

X  AT  060  0000  02.92  62704.05  26135.67 

Y  AT  082  0093  03.00  80563.86  43995.48 

Z  AT  096  0442  03.05  96703.73  60135.35 

21.  When  all  necessary  stations  are  tracking  you  may  begin  data 
collection 
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3.0  SYSTEM  OPERATION 


This  section  provides  a  description  of  the  operation  of  the  TOSS.  The 
following  paragraphs  assume  that  the  TOSS  has  been  installed  and  the  AUSTRON 
5000  program  has  been  loaded  into  the  PDP8E  (see  section  2).  Operation  of  the 
TOSS  is  broken  down  into  three  subsections: 


a. 

3.1 

Start-Up 

b. 

3.2 

AUSTRON  5000  Control 

c. 

3.3 

Data  Collection 

3.1  Start-Up 

The  general  turn-on  procedure  is  to  load  the  program  "SURVEY"  into 
the  HP9845  and  then  start  up  the  AUSTRON  5000  and  Mini-Ranger.  It  is  assumed 
that  the  AUSTRON  5000  software  is  loaded  into  the  P0P8-E  memory.  If  not,  see 
Section  2  before  proceeding  further. 

3.1.1  HP9845 

-  Turn  power  on 

-  Install  "SURVEY"  program  cartridge  in  "T15" 

-  Load  "SURVEY"  Program 

-  RUN 

3.1.2  AUSTRON  5000  SYSTEM 

-  Turn  power  on 

-  Allow  15  minutes  warmup 

-  Start  POP-8  at  Address  400 

-  Set  AUSTRON  using  commands  (see  appendix  A) 

CLIP  -  130 
TMCN's  -  50 

-  Set  receiver  to  track  all  5  stations  (M,W,X,Y,Z) 

-  Press  Debug  SFK  #27  -  set  only  once  after  initial 
loading  of  AUSTRON  Program  into  P0P8-E 

3.1.3  Mini-Ranger 

-  Turn  power  on 

-  Control  settings  for  range  console 
Channel  A  -  EXT,  REF  1 

Channel  B  -  INT,  REF  1 
Display  Rate  -  060  degrees 
NAV  switch  -  NAV 

3.2  AUSTRON  5000  Control 

The  AUSTRON  5000  is  controlled  by  using  several  9845B  special 
function  keys  (see  figure  3-1)  or  by  setting  the  HP9845  in  the  "teletype  mode" 
and  using  the  standard  AUSTRON  5000  commands. 


3.2.1  AUSTRON  5QOQ  Related  Special  Function  Keys  (SFK's) 

RPRT1  -  Transmits  a  "RPRT1''  message  to  the  AUSTRON  5000 

-  Press:  K19 

-  "RPRT1"  followed  by  RPRT  message  will  be  printed 
on  the  CRT  or  hard-copy  printer 

ACQ1  -  Transmits  a  "ACQl"  message  to  the  AUSTRON  5000 

-  Press:  K18 

-  Begins  coarse  acquisition  on  chain  1  with  a  gain 
level  of  96  db 

TMCN  -  Transmits  a  "TMCM"  message  to  the  AUSTRON  5000 

-  Press:  K20 

-  This  command  requires  the  operator  to  input  the 
TMCN  desired 

3.2.2  Standard  AUSTRON  Commands 


The  HP9845  keyboard  is  configured  in  the  teletype  mode  by 
executing  the  ON-KBO  special  function  key  (K8).  Commands  to  the  AUSTRON  are 
entered  via  the  keyboard  as  if  it  were  a  teletype  (see  appendix  A  for  command 
dictionary).  The  EXECUTE,  CONT,  or  RUN  key  is  equivalent  to  a  carriage 
return.  When  the  keyboard  is  in  the  teletype  mode,  the  only  special  function 
key  active  is  OFF-KBO  (K4). 

-  Press:  K8  (ON-KBD) 

-  "TELETYPE  ON"  appears  on  the  display  line 

-  Enter:  AUSTRON  5000  command 

-  Press:  EXECUTE,  CONT,  or  RUN 

The  command  and  AUSTRON  5000  response  is  printed  on  the  CRT 
or  hard-copy  printer. 

To  exit  teletype  mode: 

-  Press:  K4  (OFF-KBO) 

-  "TELETYPE  OFF"  appears  in  the  display  line 
3.3  Data  Collection 


Data  collection  of  both  Mini-Ranger  and  Loran-C  data  or  Loran-C  data 
only  is  initiated  and  controlled  by  special  function  keys: 

Data  Col  (K2 1 )  -  Data  collection  initialization.  The  type  of  data  to  be 

collected  (TD  only  or  TD  and  Mini-Ranger),  sample  rate, 
and  data  display  are  selected.  Start  and  Stop  are 
enabled.  If  a  graphics  display  is  chosen,  the  display 
is  initialized. 

Start  (K25)  -  Data  collection  start.  Starts  the  data  collection 

sequence.  Samples  are  printed  on  the  hard-copy  printer 
and  selected  data  is  plotted  on  the  CRT. 
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Stop  (K26)  -  Data  collection  stop.  (Do  not  confuse  with  a  program 

STOP.)  Data  collection  sequence  is  stopped.  The 
graphics  display  is  dumped  onto  the  hard-copy  printer 
and  a  statistics  summary  table  is  printed  on  the 
hard-copy  printer. 

Stats  (K28)  -  Prints  interim  cumulative  statistics  calculations  on 

demand. 


Sign  (K29)  - 


Pause  (K 9)  - 


Cont  (K10)  - 


Inverts  trilateral  triangle  when  calculating  position 
from  Mini-Ranger  data.  Used  when  Mini-Ranger  baseline 
is  crossed  during  data  collection. 

Data  collection  pause.  (Do  not  confuse  with  a  program 
PAUSE.)  Data  samples  are  not  stored  or  displayed  on 
graphics.  AUSTRON  5000  reports  are  printed  on  CRT. 

Data  collection  continue.  (Do  not  confuse  with  program 
CONT.)  Cancels  Pause  commands. 


3.3.1  Data  Collection  User  Instructions 


3. 3. 1.1  AUSTRON  5000  Setup.  The  AUSTRON  5000  must  be 
configured  to  track  one  chain  with  five  stations.  TMCN,  CLIP,  and  TIME  should 
be  checked  and  reset  if  necessary.  A  TMCN  of  50  and  a  CLIP  level  of  130  is 
recommended  for  all  five  stations.  The  master  and  secondaries  of  interest 
must  be  in  the  track  mode.  Other  secondaries  may  be  "killed"  using  the 
AUSTRON  STOP  command. 


3. 3. 1.2  Initial ization.  Press  K21.  The  following  informa 
tion  is  requested: 


REQUEST 


RESPONSE 


Sample  Period? 

Use  MRS  III? 

Graphics  plot? 

Reference  station  name? 
Transponder  location? 

Ranges  to  transponder  1  and  2? 
Use  present  graphics  parameters? 
Graphics  parameters? 

Type  plot? 

CT/AT  plot  parameters? 

XY  plot  parameter 
Press  START  when  ready? 


Period  in  seconds,  should  be  greater  than  2 
x  TMCN/ 10 

Y  or  N 

Y  or  N 

File  name,  be  sure  tape  is  in  "T15" 

B  or  C 

Ranges  in  KM 

Y  or  N 

X-AXES,  Y-AXES,  X-MIN,  X-MAX,  Y-MIN,  Y-MAX, 
X- Predicted,  Y-Predicted,  SLOPE 
1,  2,  or  3 

X,  Y  starting,  X,  Y  stopping 

X,  Y  coordinates,  operating  range  (KM) 

Hit  START 


NOTE:  For  SFK  control  explanation,  see  section  4.1.2. 
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4.0  SOFTWARE 


4.1  “SURVEY11  Program  Description 

The  program  "SURVEY"  consists  of  a  main  operating  program  and  a  set 
of  modular  subroutines  and  subprograms  which  allow  the  user  to  control  an 
AUSTRON  5000  Loran-C  Receiver  and  to  sample,  process  and  display  data  from  an 
AUSTRON  5000  (date/time,  four  TDs)  and  a  Motorola  Mini -Ranger  (two  ranges). 

The  program  responds  to  interrupts  and  flags  generated  by  special  function 
keys,  I/O  interfaces,  the  keyboard. 

The  program  "SURVEY"  evolved  from  the  9845A  Terminal  Emulator 
program  "LTWIN"  aid  an  early  data  collection  program  which  did  not  provide  the 
capability  to  control  the  AUSTRON  5000.  The  inability  to  control  the  AUSTRON 
with  the  HP9845  resulted  in  an  additional  terminal  and  added  operational 
complexity.  The  current  program  provides  a  convenient  easy  to  use  data 
collection  system  with  minimum  components. 

Figure  4-1  is  a  block  diagram  of  the  survey  program  and  figure  4-2 
is  a  flow  chart  of  the  main  operating  program.  After  initialization,  the  main 
operating  program  cycles  through  a  loop  checking  for  the  following  (see  figure 
4-2): 


a.  Is  the  AUSTRON  5000  program  patch  to  be  inserted? 

b.  Is  the  keyboard  to  be  switched  from  the  teletype  to 

the  calculator  mode? 

c.  Has  a  message  been  received  from  the  AUSTRON  5000? 

d.  Is  there  a  message  to  be  transmitted  to  the  AUSTRON 

5000? 

e.  Is  a  data  collection  run  complete? 

NOTE:  The  AUSTRON  5000  program  patch  is  only  inserted  once  after  the  AUSTRON 
5000  program  is  loaded  into  the  P0P-8E. 

End-of-line  branches  to  subroutines  and  subprograms  are  directed  by 
special  function  keys,  the  RS-232  interrupts,  the  real-time  clock,  and  the 
keyboard  (teletype  mode,  i.e.,  on  K8D  active).  Special  function  key  inter¬ 
rupts  are  used  to: 

a.  initialize  data  collection 

b.  start,  pause,  continue,  and  stop  data  collection 

c.  print  statistics  (intermediate  results) 

d.  switch  the  keyboard  to  the  teletype  mode 

e.  generate  AUSTRON  5000  commands:  RPRT1 ,  TMCN,  ACQ1 

Interrupt  service  routines  handle: 

a.  data  input  from  the  AUSTRON  5000 

b.  keyboard  interrupts  (teletype  mode) 

c.  real  time  clock  interrupts 


FIGURE  4-1.  DATA- COLLECT ION  PROGRAM  BLOCK  DIAGRAM 
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1 
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LOOP: 


INSERT  AUSTRON  5000- 
PROGRAM  PATCH? 
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(NO) 


•(YES) 


SWITCH  KEYBOARD  FROM  TELETYPE 
TO  CALCULATOR  MODE? 


(YES)- 


(NO) 

t- 


MESSAGE  TO  RECEIVE? 


1 


-(YES)- 


(NO) 


MESSAGE  TO  TRANSMIT? - 


(N 


(YES)- 


0) 


DATA  COLLECT  "STOP"?- 


(NO) 


•(YES)- 


STORE  DATA 


GET  "DEBUG"  MSG  &  SET 
TRANSMIT  FLAG 


DISABLE  KEYBOARD  INTERRUPTS 


PROCESS  MESSAGE 

ANOTHER  MSG? - (YESf 

(NO) 


TRANSMIT  MESSAGE 


PRINT  SUMMARY  STATS  &  DUMP 
GRAPHICS 

•(YES) - STORE  jIATA? 

(NO) 


FIGURE  4-2.  MAIN  OPERATING  PROGRAM  FLOW  CHART 
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4.1.1  Main  Operating  Program 

The  main  operating  program  is  divided  into  four  sections: 

a.  initialization 

b.  receive  data  handler 

c.  transmit  data  handler 

d.  data  processing 

Each  of  these  sections  and  the  subprograms  used  in  each 
section  are  described  in  the  following  paragraphs.  More  detail  on  the  subpro¬ 
grams  is  provided  by  annotations  in  the  program  listing  found  in  appendix  D. 

4. 1.1.1  Initial ization  (See  figure  4-3) 

The  initialization  sequence  of  the  program: 

a.  Defines  and  dimensions  common  variables  (option 
base  1) 

b.  Dimensions  program  arrays  (option  base  1) 

c.  loads  SFK  typing  aids,  e.g.,  "PRINTER  IS  16", 
"PRINTER  IS  O'",  "DUMP  GRAPHICS",  etc. 

d.  Initializes  program  variables 

e.  Defines  SFK  interrupts  (see  SFK  Interrupt 
Service  Routines) 

f.  Sets  up  the  RS232  interface  variables  between 
the  HP 9845  and  Austrom  5000 

g.  Opens  the  communications  channel  (RS232)  between 
the  HP 9845  and  AUSTRON  5000  (see  Data  Communica¬ 
tions  Interrupt  Service  Routine) 

h.  Assigns  Unit  2  of  the  Real  Time  Clock  to  output 
port  2 

Subroutines  and  subprograms  used  in  the  initializa¬ 
tion  sequence  are: 


SFK:  This  "SFK"  program  loads  the  SFK  execution 
command  aids  used  in  the  program. 

Keys:  This  subroutine  defines  the  end-of-line 
branches  for  SFK  interrupts. 

Doom-Setup  (Err):  This  subprogram  sets  up  the  98036 
card  on  the  select  code  passed  in  through  the  COM  statement  (220).  If 
Err  is  set  to  1  upon  exiting  the  subprogram,  then  the  communications  link 
was  not  established.  To  change  the  parameters  of  bit  rate  factor, 
parity,  stop  bits  and  bits  per  character,  refer  to  the  98Q36A  manual 
concerning  the  R4C  mode  word. 
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INITIALIZATION: 


(200) 

SET  OPTION  BASE  1 

1 

(210) 

1 

DEFINE  MASS  STORAGE  AS  ":TI5" 

I 

(220) 

\ 

DEFINE  AND  DIMENSION  COMMON  VARIABLES 

1 

(230) 

1 

DIMENSION  PROGRAM  ARRAYS 

(340) 

LOAO  SFK  DEFINITIONS 

(360) 

■  ,i 

DEFINE  SFK  INTERRUPTS 

1 

(370) 

\ 

INITIALIZE  VARIABLES 

1 

(470) 

V 

SET  UP  RS23Z  INTERFACE 

1 

(490) 

V 

OPEN  RS232  COMMS  CHANNEL 
| 

(500) 

SET  UNIT  2  OF  REAL  TIME  CLOCK  TO  OUTPUT  PORT  2 

FIGURE  4-3.  INITIALIZATION 
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Dcom_Err:  This  subroutine  prints  an  error  message 
indicating  problems  in  establishing  the  RS232  communications  link. 

Ocom_isr:  This  subprogram  is  the  data  comm  inter¬ 
rupt  service  routine.  It  monitors  the  channel  between  the  HP9845  and 
AUSTRON  5000  and  constantly  processes  characters  as  they  come  in. 

Get_data  (B),  prompt)  acts  as  a  front-end  for  this  routing  (see  Receive 
Oata  Handler). 

Debug  (A),  Bug  )(*),  Bug  com,  Bug  count):  This 
subprogram  is  implemented  in  the  program's  maTn  operating  loop  but  is 
listed  here  since  it  is  an  initialization  function.  The  subprogram  loads 
the  AUSTRON  program  patch  step  by  step  into  A)  from  Bug  )(*)  until  the 
program  modification  is  complete.  When  the  line  counter  Bug_  count 
reaches  the  last  line,  the  flag  Bug_ccm  is  reset. 

4. 1.1. 2  Receive  Message  Handler  (See  figure  4-4) 

Data  messages  from  the  AUSTRON  5000  are  stored  in  a 
circular  buffer,  DCOM).  (See  Dcom_isr  Interrupt  Service  Routine).  The 
receive  message  handler  checks  for  a  message  by  detecting  a  start-of-header 
(SOH)  or  carriage  return  (CR)  character  in  DCOM)  (see  Get_data  (B),  Prompt)). 
Messages  starting  with  a  SOH  character  are  strip  chart  data  which  the  program 
removes  from  DCOM)  and  ignores.  If  the  message  is  a  teletype  message  (CR 
detected)  and  data  is  not  being  collected  the  message  is  printed  (default  to 
CRT).  In  the  data  collect  mode,  the  program  looks  for  a  "RPRT1 "  message. 

Date,  time  and  TDs  are  stripped  from  each  RPRT1  message  received  (see  Data 
Processing).  If  master  is  not  in  the  track  mode,  the  sample  is  aborted.  The 
RPRT  is  printed  on  the  CRT  if  the  program  is  in  the  data  collect  "pause" 
mode.  Messages  other  than  RPRT  are  printed  on  the  hard  copy  printer  (CRT 
during  "pause").  After  a  message  is  received  the  program  checks  for  another 
message  in  DCOM)  before  continuing  to  the  transmit  data  message  handler. 

Subroutines  and  subprograms  used  in  the  receive 

message  handler  are: 

FNDc  ready:  This  function  returns  a  1  when  a 
carriage  return  (CR)  or  sTart  of  header  (SOH)  is  detected  in  the  data 
comm  buffer,  DCOM). 

Get_data  (B),  Prompt):  This  subprogram  gets  a  line 
of  data  (8))  received  from  the  AUSTRON  5000.  The  variable  Prompt  indi¬ 
cates  what  type  of  data  has  been  received.  A  1  is  returned  if  B)  is  a 
teletype  message.  A  2  indicates  a  complete  strip  chart  message  (10 
characters).  An  incomplete  strip  chart  message  (less  than  10  characters) 
returns  a  3. 

4. 1.1. 3  Transmit  Message  Handler  (See  figure  4-5) 

Messages  to  the  AUSTRON  5000  are  generated  by 
keyboard  entries  (teletype  mode),  special  function  keys  (TMCN,  RPRT1 ,  ACQ1), 
and  data  sample  requests  (see  Rtc  Interrupt  Service  Routine).  The  transmit 
message  handler  checks  if  a  message  has  been  generated  from  any  of  the  above 
sources.  Messages  are  transmitted  character  by  character  with  a  60  ms  delay 
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RECEIVE  MESSAGE  HANDLER: 


( 590)  RECEIVE : 

r - 

(600)  IS  THERE  A  SOH  OR  CR  IN  DOOMS  ? - (NO)->GO  TO  TRANSMIT 

(YES) 


(610)  GET  MESSAGE  ANQ  MESSAGE  TYPE 

(620)  TELETYPE  MESSAGE? - (NO) — ►(CHECK  FOR  ANOTHER  MESSAGE)— - 

(YES) 

* 

(660)  DATA  COLLECT  MOOE?  —  (NO) — (9t0)  PRINT  MSG — (950)  ANOTHER  MSG  ROY?  —  { YES) - 

(NO) 

I 

GO  TO  TRANSMIT 


(680  )  8S*'RPRT?“?  - (YES) - (WAIT  FOR  REMAINDER  OF  RPRT) 

(NO) 


(700)  OATA  COLLECT  “PAUSE"? - (YES) - (890)  PRINTER  IS - (910)  PRINT  MSG 

1  CRT  | 


(NO) 


(710)  OATA  MESSAGE? 
(NO) 

If 

(910)  PRINT  MESSAGE 


(YES >—(950)  ANOTHER  MSG  ROY? 

I 

(NO) 


ANOTHER  .MSG? 

REAOY?( - (YES) 


(N£) 


GO  TO 
TRANSMIT 


-(YES)  - *-(970)  DATA: 


f 


SO  TO  TRANSMIT 


(980)  INCREMENT  OATA  POINTER  (Op) 

(990)  Op-1? -(YES)— (1150)  STRIP  TIME  ANO  DATE - 

(NO) 

(1000)|Op*2T - (YES)  - >(1060)  MASTER  TRACK? -  (YES- 

(NO)  (NO) 

I  PRINT  ERROR  MSG 

_ _  I  l  ABORT  SAMPLE  (0P*0) 

(1010)  STRIP  TO*  | 

(1030)  jcOMPLETE  SAMPLE? —♦(N0>  GO  TO  RECEIVE 

(YES)  ~~  ~~~  ~ 

GO  TO  WOCESS 


FIGURE  «- A.  RECEIVE  MESSAGE  HANDLER 
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(740)  TRANSMIT: 
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between  characters  followed  by  a  carriage  return.  The  delay  between  charac¬ 
ters  is  necessary  to  insure  that  the  AUSTRON  5000  will  consistently  receive 
the  entire  message. 


message  handler  are: 


Subroutines  and  subprogram  used  in  the  transmit 


FNKbdjready:  This  function  returns  a  1  if  CONT, 
STORE,  EXECUTE,  or  SFK  4  was  hit  and  the  program  is  the  teletype  mode. 

It  indicates  a  SENO  command  when  CO NT,  EXECUTE,  or  STORE  are  hit.  It 
switches  out  of  teletype  command  when  SFK  4  is  hit.  Hitting  SFK  4  also 
causes  the  COM  variable  Kbd  to  equal  0. 

Get_line  (A$):  This  subroutine  gets  a  line  gener¬ 
ated  from  the  keyboard  in  the  teletype  mode  to  be  transmitted  to  the 
AUSTRON  5000. 

4. 1.1. 4  Data  Processing  (See  figure  4-6) 

Oata  samples  consist  of  date/time,  four  TDs,  and  two 
Mini-Ranger  ranges  (optional).  Up  to  400  samples  may  be  stored  during  a  data 
collection  run.  If  400  samples  are  reached,  the  program  automatically  stops 
data  collection.  The  samples  are  stored  in  sets  of  100  to  minimize  magnetic 
tape  storage  requirements.  If  Mini-Ranger  data  is  collected,  the  program 
computes  the  vessels  xy  position.  Along  and  cross  track  distances  are  also 
computed  if  they  are  to  be  displayed.  Each  data  sample  and  computed  position 
(if  Mini-Ranger  data  is  sampled)  is  printed  on  the  hardcopy  printer.  Cumula¬ 
tive  statistics  for  each  TD  (mean,  standard  deviation)  are  calculated  after 
each  sample.  Covariance,  correlation  coefficients,  and  regression  line  slope 
are  also  calculated  after  each  sample  for  each  TD  pair  (wx,  wy,  wz,  xy,  xz, 
yz).  Three  graphic  plots  are  available  (TD,  xy,  cross  track/along  track). 

The  plot  desired  is  chosen  by  the  operator  during  data-collect  initialization 
(see  Oata_Coll  Interrupt  Service  Routine).  The  operator  also  has  the  option 
of  no  graphic  display. 


At  the  end  of  a  data  collection  run,  the  graphics 
plot  is  dumped  onto  the  hardcopy  printer  and  a  summary  statistics  tabulation 
is  printed.  The  operator  is  then  given  the  option  to  store  the  data  on 
magnetic  tape.  All  program-related  files  are  stored  and  retrieved  from  the 
right-hand  tape  drive  while  data  is  stored  using  the  left-hand  drive. 

Subroutines  and  subprograms  used  in  the  data  pro¬ 
cessing  section  of  the  program  are: 

Triangle  (Ra,  Rb,  Rc,  A,  B,  Cl  -  This  subprogram 
computes  the  angles  of  a  triangle  (A,  B,  CJ  given  the  three  sides  (Ra, 
Rb,  Rc)  using  the  law  of  sines.  Ra  is  the  baseline  length  between 
reference  stations;  Rb  and  Rc  are  measured  ranges.  (See  appendix  G. ) 

Position  (Zo(*),  Alpha,  Rc/1000,  Sign,  8,  Z(*))  - 
This  subprogram  computes  the  position  of  the  vessel,  l (*),  from 
Mini-Ranger  data.  (See  appendix  G.) 
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(1190) 

PROCESS: 
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(1210) 

INCREMENT  SAMPLE  COUNTER 
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(1300) 

t 

SAMPLE  NO  =  400? — (YES)  — 

—STOP  DATA  COLLECTION 

(NO) 

i 

(1330) 

f 

PRINT  SAMPLE 
] 

(1390) 

i 

STORE  DATA  IN  SETS  OF  100 

1 

(1720) 

I 

COLLECTING  MINIRANGER  DATA? 

—(NO) - ► 

| 

(YES) 

i 

(1800) 

t 

CALCULATE  POSITION 
\ 

(1820) 

1 

PLOTTING  ALONG/CROSS  TRACK? 

| 

(NO) - ► 

(YES) 

v 

(1850) 

f 

CALCULATE  ALONG/CROSS  TRACK 

(1890) 

f 

CALCULATE  CUMMULATIVE  STATS 

(if  collecting  miniranger  data  substitute 
x&y  for  TOW  and  TDZ  (1830) 

* 


(1900)  CALCULATE  CUMMULATIVE  REGRESSION  COEFFICIENTS 

\ 

(1910)  COLLECTING  MINIRANGER  DATA? — (NO) - 

I 

(YES) 

(1930)  PRINT  RANGES,  ANGLES,  X/Y,  CT/AT 

f - — - 1 

(1940)  STOP? - (YES) - RESET  DATA  COLLECT  FLAG 

(NO) _ 

(1950)  PAUSE? - (YES) - ►GO  TO  TRANSMIT 

(NO) 

(1960)  PLOT  DATA? - (NO) - ►GO  TO  TRANSMIT 

(YES) 

(1990)  PLOT  DATA 

FIGURE  4-6.  OATA  PROCESSING 
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Stats  (Td(*).  Sample,  Stats(*),  Cov(*)>  0-Set(*)): 
This  subprograms  computes  cumulative  statistics  for  Tour  variables, 

Td(*).  The  array  Stats{*)  contains  the  cumulative  sum,  sum  of  squares, 
average  and  standard  deviation  for  each  variable  minus  the  offset 
\  (0-$et(*)).  The  array  Cov(*)  contains  the  sum  of  cross  products,  covari¬ 
ance  and  correlation  coefficient  for  each  pair  of  variables  minus  the 
\offset  (0-set(*)).  The  array  0-set(*)  is  the  offset  (i.e.,  the  first 
jample)  subtracted  from  each  sample  to  prevent  computational  errors, 
see  appendix  H.) 

Reg  (Stat(*),  Cov(*),  S(*),  R(*),  Q-Set(*));  This 
subprogram  computes  linear  regression  parameters  for  each  pair  of  four 
variables.  Inputs  to  the  program  are  the  statistics  arrays  generated  by 
the>Stats  subprogram  (Stats(*),  Cov{*),  and  0-set(*)).  The  array  S(*) 
contains  a  summary  of  the  statistics  for  each  pair  of  variables  (mean  and 
standard  deviation).  The  array  R{*)  contains  the  regression  line  slope, 
the  standard  deviation  of  the  residuals,  and  the  variable  chosen  as  the 
independent  variable  for  each  pair  of  variables.  The  program  picks  the 
variable  \ith  the  larger  standard  deviation  as  the  independent  variable 
for  calculating  linear  regression  parameters.  (See  appendix  I.) 

Disp-run  (Td(*),  Sample,  Xmn,  Xmx,  Ymn,  Ymx,  Mp,  X 
axes,  Y  axes,  P\x  Pry,  Cba,  Lcb  Cbo,  Cbc,  Lcb2,  Lcb3,  Stp,  R(*)):  This 
subprogram  provides  a  real  time  TD/TD  plot  and  bar  graph  of  regression 
line  residuals.  Variable  selection  and  graph  parameters  are  input  during 
data  collect  initialization  (see  Oata-Coll  Interrupt  Service  Routine). 

The  program  also  allows  a  predicted  regression  line  to  be  displayed  for 
comparison  with  data  anJected. 

Plot-ct,  (Ct,  At,  Rdist,  Sample):  This  subprogram 
provides  a  real  time  display's/  vessel  cross  track  (Ct)  and  along  track 
(At)  position.  Track  end  pointSvare  input  during  data  collect  initiali¬ 
zation. 

Plot-xy  (Sample/^p-x,  Wp-y,  Z(*),  Op  r):  This 
subprogram  provides  a  real  time  display^af  vessel  position. Display 
origin  (Wp_x,  Up _y)  and  anticipated  operari<ig  range  (Op_r)  are  input 
during  data  collect  initialization, 


Sumary:  This  subroutine  dunlps  the  graphics  display 
onto  the  hardcopy  printer  and  prints  a  summary  statistics  table.  Certain 
program  parameters  are  zeroed  during  this  routine  and  the  operator  is 
given  the  option  to  store  the  data  on  a  magnetic  tape  cartKjige. 

Create:  This  subroutine  creates  and  stores''deta  on 
a  data  file  large  enough  to  accomodate  the  number  of  data  samples  col-v 
lected.  Data  is  stored  in  sets  of  100  to  reduce  file  size  requirements^' 
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4.1.2  Special  Function  Key  Interrupts 

There  are  two  general  sets  of  SFK  interrupts  in  the  program 
"SURVEY".  One  set  implements  data  collection  functions.  The  other  set  is 
used  to  control  the  AUSTRON  5000  receiver.  (See  figure  3-1.) 

4. 1.2.1  Austron  5000  Receiver  Control 


The  SFK  "ON  KBD"(#8)  converts  the  keyboard  of  the 
HP9845  to  the  teletype  mode.  Keyboard  strokes  are  stored  in  a  buffer  (Buf$). 
Hitting  the  EXECUTE,  STORE,  or  CONT  key  causes  the  contents  of  Buf$  to  be 
transmitted  to  the  AUSTRON  5000.  SFK  "OFF  KBD"(#4)  returns  the  keyboard  to 
the  calculator  mode. 

SFKs  ACQ1(#18) ,  RPRT1 (#19) ,  and  TMCN(#20)  cause  the 
corresponding  commands  to  be  transmitted  to  the  receiver.  The  TMCN  command 
requires  the  operator  to  input  the  TMCN  desired. 

The  following  subprograms  and  subroutines  are 
utilized  to  implement  receiver  control  functions: 

ON-Kbd  (2400).  This  is  the  service  routine  for 
SFK#8  "ON  KBD".  It  executes  the  ON  KBD  statement  and  sets  Kbd  ■  1. 
Kbd-isr  is  the  ON  KBD  service  routine. 

Kbd_isr  (4980).  This  subprogram  is  the  keyboard 
service  routine.  It  is  responsible  for  acting  upon  keystrokes  entered  by 
the  user.  This  routine  defines  SFK#4  (OFF  KBD)  to  reset  the  flag,  Kbd, 
which  causes  a  branch  to  the  Off-kbd  routine  in  the  main  operating 
program.  Note:  All  other  keyboard  interrupts  are  inactive  with  the 
keyboard  in  the  teletype  mode.  The  subprogram  Get_line  (A$)  acts  as  a 
frontend  to  this  routine. 


Get_line(A$)  (5670).  This  subprogram  gets  a 
line  from  the  keyboard  into  A$.  The  line  is  then  transmitted  to  the 
AUSTRON  5000.  See  the  Transmit  Data  Handler  section. 

FNKbd  ready  (6250).  This  function  returns  a  1 
if  CONT,  EXECUTE,  STORE,  or  SFlC#4  (OFF-KBD)  was  hit.  CONT,  EXECUTE,  or 
STORE  initiate  a  transmit  command.  SFK#4  switches  the  keyboard  back  to 
the  calculator  mode. 


Off -Kbd  (2440).  This  is  the  service  routine  for 
SFK#4(0FF-KBD) .  It  switches  the  keyboard  from  the  teletype  to  the 
calculator  mode  by  executing  the  OFF  KBD  command  and  sets  Cursor=l 
(cancels  the  transmit  command). 

RPRT1  (2260),  ACQ1  (2200).  These  routines 
service  SFKs  #19  and  #18  respectively.  "RPRT1"  or  "ACQ1"  are  loaded  into 
the  transmit  variable  AS  and  the  transmit  flag,  "Comand,"  is  set. 


TWCN  (2310).  This  routine  loads  the  TMCN 
command  for  each  station  into  the  transmit  variable  A$  and  sets  the 
transmit  flag,  Comand.  The  routine  requests  the  desired  TMCN  and  sets 
all  stations  to  the  same  value. 

Debug  (4870).  This  routine  inputs  the  program 
patches  into  the  AUSTRQN  5000  that  are  necessary  to  modify  the  system  for 
use  in  an  aircraft  or  vessel . 

4. 1.2. 2  Data  Col  lection  Functions 


The  following  data  collection  functions  are  imple¬ 
mented  using  SFK  interrupts: 

a.  data  collection  initialization 

b.  data  collection  start 

c.  data  collection  stop 

d.  data  collection  pause 

e.  data  collection  continue 

f.  print  data  statistics 

g.  change  Mini-Ranger  fix  geometry 

Ini tial ization  (SFK#21).  Data-coll  (2500)  is  the 
data  collect  initialization  service  routine  for  SFK#21,  DATA_C0L. 

Figures  4-7A  and  4-7B  contain  the  flow  chart  for  Data_coll.  The  main 
functions  of  this  routine  are  to  initialize  variables,  set  the  data 
sampling  period,  input  Mini-Ranger  reference  station  data  (if  being 
used),  and  initialize  the  graphics  plot  (if  data  is  to  be  plotted).  The 
routine  is  bypassed  if  the  program  is  already  in  the  data  collect  mode. 

The  program  assumes  Mini-Ranger  reference  station 
numbers  1  and  2  are  being  used.  If  another  pair  is  used,  line  2640  must  be 
changed  to  indicate  the  proper  status. 

Data  Collection  Start  (SFK#25) .  Start  (3640)  is  the 
data  collect  service  routine  for  SFK#25,  START.  The  routine  is  bypassed 
and  an  error  message  displayed  if  the  program  is  already  in  the  data 
collect  mode  or  data  collection  has  not  been  initialized.  The  routine 
sets  up  a  real  time  clock  interrupt  branch  and  sets  the  real  time  clock 
to  interrupt  the  program  at  the  sample  interval  input  during  initializa¬ 
tion.  (See  Real  Time  Clock  Service  Routine) 

Data  Collection  Stop  (SFK#26).  Stop  (3780)  is  the 
data  collection  stop  service  routine  for  SFK#2fs,  STOP.  The  routine  is 
bypassed  if  the  program  is  not  in  the  data  collection  mode.  The 
real-time  clock  interrupt  is  disabled  and  the  stop  flag  (Stp)  is  set. 
Detection  of  the  Stop  flag  in  Main  Operating  Program  (See  Main  Operating 
Program)  in  the  data  collection  mode  causes  a  branch  to  the  subroutine 
summary  (4080).  This  routine  dumps  the  graphics  plot  (if  data  plated) 
onto  the  hard-copy  printer,  prints  a  statistical  summary  of  the  data, 
clears  the  data  collection  flags,  and  requests  if  the  data  is  to  be 
stored  on  magnetic  tape.  An  affirmative  response  causes  a  branch  to  the 
subroutine  create  (4590)  which  creates  a  data  file  large  enough  to 
accommodate  the  number  of  sets  of  data  collected  and  stores  the  data. 
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(2510) 

(2520) 

(2530) 

(2540) 

(2560) 

(2910) 

(2960) 

(3020) 

(3030) 

(3060) 

(3090) 

(3100) 

(3190) 

(3240) 

(3290) 

(3300) 


START 

* 

SET  MASS  STORAGE  TO  T15 

\ 

DISABLE  REAL-TIME  CLOCK  INTERRUPTS 

\ 

SET  DEGREE  MODE 

COLLECTING  DATA  ALREADY? - ( YES) - 

(NO) 

INITIALIZE  VARIABLES 

PRINT  RECOMMENDED  SAMPLE  INTERVALS 

I 

INPUT  SAMPLE  PERIOD 

I 

INPUT  "USING  MRS  III?" 

I 

USING  MRS  III? - (NO) - 

(YES,  MRS  =  0) 

\ 

INPUT  REFERENCE  STATION  FILE 

I 

READ  REFERENCE  STATION  FILE 

PRINT  REFERENCE  STATION  FILE  DATA 

CALCULATE  RANGE  ANO  AZIMUTH 
BETWEEN  REFERENCE  STATIONS 

J 

INPUT  LOCATION  OF  #1 
TRANSPONOER 

\ 

INPUT  APPROXIMATE  RANGES  TO 
TRANSPONDERS 


•PRINT  ERROR  MESSAGE 


RETURN 


-MRS=1- 


INPUT  "GRAPHIC  PLOT?” 
(A) 


FIGURE  4-7A.  FLOW  CHART  DATA  COL 
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FIGURE  4-7B.  FLOW  CHART  (cont)  DATA_C0l 
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Data  Collect  Pause  (SFK#9).  Pause  (4340)  is  the 
data  collect  pause  service  routine  for  SFK#9,  PAUSE.  This  routine  is 
bypassed  and  an  error  message  displayed  if  the  program  is  not  in  the  data 
collection  mode.  The  routine  sets  the  pause  flag  (Pause),  exits  graph¬ 
ics,  and  displays  "YOU  ARE  AT  A  PAUSE"  on  the  CRT.  If  the  pause  flag  is 
detected  in  the  main  operating  program  (See  Main  Operating  Program), 

RPRT1  messages  from  the  AUSTRON  5000  are  printed  on  the  CRT  and  are  not 
processed  as  data. 

Data  Col lect  Continue  (SFK#10) .  Continue  (4440)  is 
the  service  routine  for  SEk#10,  CONT.  This  routine  is  bypassed  and  an 
error  message  is  displayed  if  the  Pause  flag  is  not  set.  The  routine 
clears  the  Pause  and  returns  graphics. 

Stats  (SFK#28).  Stats  (4560)  is  the  service  routine 
for  SFK#28,  STATS.  The  routine  prints  a  summary  tabulation  of  the 
statistics  calculated  for  each  TO. 

Sign  (SFK#29).  Sign  (2360)  is  the  service  routine 
for  SFK#29,  SIGN.  This  routine  changes  the  sign  the  variable  "Sign"  used 
in  position  calculations  (See  Appendix  G). 

4.1.3  Real-Time  Clock  Interrupt 

Interrupts  from  the  real-time  clock  (HP98035A)  are  used  to 
generate  sample  requests  from  the  Mini-Ranger  and  AUSTRON  5000.  The  sample 
interval  is  set  during  data  collect  initial ization  and  real-time  clock  inter¬ 
rupts  are  enabled  with  the  data  collect  start  command.  Rtc  is  the  real-time 
clock  service  routine.  Figure  4-8  is  a  flow  chart  of  Rtc.  The  routine 
executes  a  BEEP  to  indicate  a  sample  sequence  has  been  initiated.  A  timeout 
of  3  seconds  is  set  for  Mini-Ranger  data.  If  the  3-second  time  limit  is 
exceeded  a  "Timeout  ERROR"  message  is  printed  and  the  sample  is  aborted.  If 
Mini -Ranger  data  is  being  collected,  the  two  ranges  are  sampled  sequentially. 
The  samples  are  compared  to  the  previous  sample  (estimated  ranges  for  the 
first  sample)  and  if  the  difference  is  greater  than  1000  meters,  the  sample  is 
rejected.  If  the  samples  are  within  bounds,  a  TD  sample  is  requested  from  the 
AUSTRON  5000  and  the  real-time  clock  interrupt  is  reenabled. 
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(3830) 

(3840) 

(3850) 

(3860) 

- (  no) - (3880) 

(3900) 

(3930) 

(3950) 

(3990) 

i 

(4010) 

(4020) 


RTC: 

BEEP 

RESET  DATA  POINTER 


SET  TIMEOUT  INTERRUPT 
FOR  MINIRANGER  TO  3  SEC 


USING  MINIRANGER? 
(YES) 

I 

SAMPLE  RANGE  1 


SAMPLE  RANGE  2 

I 

ARE  RANGES  WITHIN  1000M  - 

OF  LAST  SAMPLE? 

I 

(YES) 

- 1 

SET  A$="RPRT1"  AND 

SET  TRANSMIT  FLAG  ( COMMAND =1 ) 


I 


REENABLE  REAL-TIME  CLOCK 
INTERRUPT 


GO  TO  TRANSMIT  (REQUEST 
SAMPLE  FROM  AUSTRON  5000) 


FIGURE  4-8.  RTC  FLOW  CHART 


(NO) 


t 

PRINT 

"RANGE  ERROR" 


1 

GO  TO  TRANSMIT 
(NOTE:  A$="“  AND 
COMMANDS) 
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5.0  PROGRAM  OPERATING  INSTRUCTIONS 


5.1  Preliminary  Oata  Collection  Steps 

Prior  to  actual  data  collection  verify  that  all  preliminary  steps 
and  initialization  parameters  have  been  set. 

1.  Enter  vessel  program  patches  (done  once  after  reloading 
AUSTRON  program) 

2.  Set  time  on  AUSTRON  5000 

3.  Set  Real  Time  Clock  (optional) 

4.  Set  AUSTRON  5000  parameters: 

TMCN  50 

CLIP  130 

5.  Verify  all  essential  LORAN-C  signals  are  locked  on  and 
tracking  (one  chain  with  (5)  stations  defined;  master  and 
secondaries  of  interest  locked  on). 

5.2  Detailed  "Survey"  Program  Instructions 

1.  Insert  the  survey  program  cartridge  into  the  primary  transport 
"T15"  (i.e.,  the  transport  above  the  special  function  keys). 

2.  Load  the  file: 

a.  Type:  LOAD  “SURVEY :T1 5" 

b.  Press:  EXECUTE 

3.  Start  the  program: 
a.  Press:  RUN 

4.  "RUNNING"  will  appear  in  the  display  area. 

5.  At  this  point,  the  98458  computer  is  in  the  passive  mode  and 
any  messages  generated  from  the  AUSTRON  5000  will  appear  on  the  CRT  display. 

a.  If  the  AUSTRON  5000  is  initialized  and  locked  onto  all 
Loran  signals  desired,  you  are  ready  to  initialize  the  data 
collection  mode  of  operation. 

b.  Insure  that  the  AUSTRON  5000  is  not  setup  to  send  back 
repetition  RPRT's  (e.g.,  command-S0'STR0N,  "RPRT  1,K"). 

6.  Data  collect  initialization: 

a.  Hold  SHIFT  key  down 

b.  Press:  SFK21  (Data_Coll) 

7.  When  a  sample  period  table  appears  in  the  display  area: 

a.  Enter:  The  sample  period  (time  between  samples)  you  desire 
according  to  the  TMCN  used. 

b.  Press:  CONT 
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8.  When  "Are  you  going  to  use  MRS  III"  appears  in  the  display  area: 


a.  If  you  are  not  going  to  use  the  MRS  III: 

(1)  Enter:  N 

(2)  Press:  CONT 

(3)  Go  to  Step  13 

b.  If  you  are  going  to  use  the  MRS  III: 

(1)  Enter:  Y 

(2)  Press:  CONT 

9.  When  "Input  the  reference  station  file  name?"  appears  in  the 
display  area: 

a.  Enter:  The  letters  for  the  file  that  sets  the  reference 
coordinates  for  the  area  under  calibration. 

NOTE:  Files  for  NY  are  AMBROL 

OUT-L 

OUT-M 

WARD 

RARi'N 

b.  Press:  CONT 

10.  The  reference  data  will  be  printed  on  the  thermal  line  printer. 

11.  When  "Input  location  of  transponder  #1,  B  or  C?"  appears  in  the 
display  area: 

a.  Enter:  The  letter  wh ich  indicates  where  R1  transponder  is 
located  (NOTE:  Use  the  reference  data  printed  out  in  Step 
11). 

b.  Press:  CONT 

12.  When  "Enter  approximate  ranges  to  transponders  #1  and  #2,  in 
kilometers  (+0.5  km)"  appears  in  the  display  area: 

a.  Enter:  Ranges  in  kilometers  separated  by  a  comma  (i.e., 

1500,  2200). 

b.  Press:  CONT 

13.  When  "Do  you  want  a  graphics  plot?"  appears  on  the  display: 

a.  If  you  do  not  want  to  plot  data: 

(1)  Enter:  N 

(2)  Press:  CONT 

(3)  Go  to  Step  38 

b.  If  you  want  to  plot  data: 

( 1 )  En  ter :  Y 

(2)  Press:  CONT 

(3)  If  using  mini-ranger,  go  to  Step  26 
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14.  The  graphics  parameters  will  appear  in  the  display  area. 

15.  When  "Are  the  graphics  parameters  displayed  above  correct?" 
appears  in  the  display  area: 

a.  Enter:  Whether  you  want  to  use  the  graphic  parameters 
indicated  or  input  new  ones. 


(1) 

If  you  want 

to  use  the  parameters  indicated 

(a) 

Enter: 

Y 

(b) 

Press: 

CONT 

(c) 

Go  to 

Step  36 

(2) 

If  you  want 

to  enter  new  parameters: 

(a) 

Enter: 

N 

(b) 

Press: 

CONT 

16.  When  "Input  what  you  want  on  the  X-axes?"  appears  in  the 
display  area: 

a.  Enter:  The  number  representing  the  station  you  want  to  be 
plotted  on  the  X-axes. 

b.  Press:  CONT 

17.  When  "Input  what  you  want  on  the  Y-axes?"  appears  in  the 
display  area: 

a.  Enter:  The  number  representing  the  station  you  want  to  be 
plotted  on  the  Y-axes. 

b.  Press:  CONT 

18.  When  "Input  X-MIN?"  appears  in  the  display  area: 

a.  Enter:  The  minimum  value  expected  for  the  TD  to  be 

plotted  on  the  X-  ;<es. 

b.  Press:  CONT 

19.  When  "Input  X-MAX?"  appears  in  the  display  area: 

a.  Enter:  The  maximum  value  expected  for  the  TD  to  be 

plotted  on  the  X-axes. 

b.  Press:  CONT 

20.  When  "Input  Y-MIN?"  appears  in  the  display  area: 

a.  Enter:  The  minimum  value  expected  for  the  TD  to  be 

plotted  on  the  Y-axes. 

b.  Press:  CONT 

21.  When  "Input  Y-MAX?"  appears  in  the  display  area: 

a.  Enter:  The  maximum  value  expected  for  the  TD  to  be 

plotted  on  the  Y-axes. 

b.  Press:  CONT 
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22.  When  "Input  X- PREDICTED?"  appears  in  the  display  area: 

a.  Enter:  The  plot  origin  for  the  TD  to  be  plotted  on  the 
X-axis  (e.g.,  predicted  waypoint). 

b.  Press:  CONT 

23.  When  "Input  Y-PREDICTED?"  appears  in  the  display  area: 

a.  Enter:  The  plot  origin  for  the  TD  to  be  plotted  on  the 
Y-axis  (e.g.,  predicted  waypoint). 

b.  Press:  CONT 


24.  When  "Input  predicted  SLOPE?"  appears  in  the  display  area: 

a.  Enter:  The  value  corresponding  to  the  predicted  slope 

line. 

b.  Press:  CONT 

25.  At  this  point,  you  go  back  to  Step  14  to  check  what  was  entered. 

26.  When  "Input  type  of  plot  desired?"  appears  in  the  display  area: 

a.  Enter:  The  number  1,  2,  or  3  for  the  type  of  plot  you 

want . 

b.  Press:  CONT 

c.  If  TD  plot,  go  to  Step  14. 

d.  If  cross/along  track  plot,  go  to  Step  27. 

e.  If  x,y  plot,  go  to  Step  32. 

27.  When  "Input  the  co-ordinates  of  the  starting  point?"  appears  in 
the  display  area: 


a.  Enter:  The  start  point  (km)  for  the  track  line  for 
along/ cross  track  calculations. 

b.  Press:  CONT 

28.  When  "Input  the  co-ordinates  of  the  stopping  point?"  appears  in 
the  display  area: 

a.  Enter:  The  stop  point  (km)  for  the  track  line  for 
along/cross  track  calculations. 

b.  Press:  CONT 

29.  The  start  and  stop  points  and  course  and  range  between  points 
will  be  printed  on  the  thermal  line  printer. 

30.  At  this  point,  the  CRT  will  be  initialized  with  the  cross¬ 
track/  alongtrack  graphic  parameters. 

31.  Go  to  Step  38. 


42 


* 


32.  When  "Input  the  waypoint  coordinates?"  appears  in  the  display 

area: 

a.  Enter:  The  xy  coordinates  (km)  for  the  waypoint  (or  point 

of  interest). 

b.  Press:  CONT 

33.  When  "Input  the  operating  range  about  the  waypoint  in  kilome¬ 
ters?"  appears  in  the  display  area: 

a.  Enter:  The  operating  range  about  the  waypoint  (or  point 

of  interest)  in  kilometers. 

b.  Press:  CONT 

34.  At  this  point,  the  CRT  will  be  initialized  with  the  xy  graphic 
parameters. 

35.  Go  to  Step  38. 

36.  The  graphic  parameters  will  be  printed  on  the  thermal  line 

printer. 

37.  At  this  point,  the  CRT  will  be  initialized  with  the  TD  graphics 
parameters . 

38.  "Hit  start  when  ready"  will  be  printed  on  the  thermal  line 

printer. 

NOTE:  At  this  point,  the  vessel  should  be  positioned  at  the  data  collection 
starting  point. 

39.  When  you  are  ready  to  start  collecting  data  samples: 

a.  Hold  SHIFT  key  down 

b.  Press:  SFK  25  (STRT) 

40.  A  beep  will  be  heard  at  vrfiich  point  the  data  collection  sample 
heading  will  be  printed  on  the  thermal  line  printer  along  with  the  start  time 
and  first  data  samples  characteristics. 

41.  The  graphics  cursor  will  continue  to  move  to  the  updated  sample 
location  and  a  beep  will  be  heard  as  each  sample  is  collected. 

42.  The  updated  samples  will  be  printed  and  plotted  until  you  stop 
or  pause  data  collection. 

43.  At  this  point,  the  data  collection  program  is  controlled  by  the 
special  function  keys.  Commands  explained  in  Section  4. 1.2. 2. 
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44. 


Select  any  one  of  the  following  SFK  control  keys  by: 


a.  Press:  SFK  9  PAUSE 

SFK  10  CONTINUE 

b.  Hold  down  the  SHIFT  key. 

Press:  SFK  26  STOP 

SFK  28  STATS 

SFK  29  SIGN 


Go  to  Step  46 
Go  to  Step  42 

Go  to  Step  49 
Go  to  Step  47 
Go  to  Step  48 


45.  The  graphics  display  will  be  removed  from  the  CRT  and  "you  are 
at  pause"  will  appear  on  the  display.  The  samples  will  be  displayed  on  the 
CRT  vice  being  printed  on  the  thermal  line  printer. 


46.  At  this  point,  Austron  reports  are  printed  on  the  CRT  and  not 
processed.  You  have  to  go  to  CONTINUE  mode  in  order  to  resume  data  collection 
and  graphics. 


a.  Go  to  Step  43 

47.  The  statistics  based  on  the  number  of  samples  collected  at  that 
time  will  be  printed  out  on  the  thermal  line  printer. 

a.  Go  to  Step  43 

48.  The  value  of  (sign)  will  be  shifted  to  the  value  1  if  it  was  -1 
and  vice  versa.  This  is  changed  depending  on  which  side  of  the  baseline  (B  to 
C)  the  vessel  is  located. 

a.  The  new  value  will  be  printed  on  the  thermal  line  printer. 

b.  See  appendix  G  for  reference  triangle  calculations. 

c.  Go  to  Step  43. 

49.  The  graphics  plot  will  be  dumped  on  the  thermal  line  printer. 

50.  The  final  statistics  will  be  printed  on  the  thermal  line 

printer. 


area: 


51.  When  "Do  you  want  to  store  Data  Y/N?"  appears  in  the  display 


a.  If  you  don't  want  them  stored  on  tape: 

(1)  Enter:  N 

(2)  Press:  CONT 

(3)  At  this  point,  go  to  Step  4,  Passive  Starting 
Mode. 

b.  If  you  want  them  stored  on  tape: 

(1)  Enter:  Y 

(2)  Press:  CONT 
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52.  When  "If  you  have  data  storage  tape  in  :T14  then  -CONT"  appears 
in  the  display  area: 


a.  Insert  a  data  cartridge  into  the  optional  transport  "T14“ 
(i.e.,  the  transport  above  the  typing  function  keys). 

b.  Press:  CONT 

53.  When  "Input  file  name?"  appears  in  the  display  area: 

a.  Enter:  Six  characters  representing  the  name  of  the  file 

in  which  you  want  to  store  the  data  collected. 

b.  Press:  CONT 

54.  The  storage  information  will  be  printed  on  the  thermal  line 
printer  and  the  data  stored  on  magnetic  tape. 

a.  Program  returns  you  to  Step  4,  Passive  Starting  Mode. 
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SYSTEM  COMMANDS 


1.  The  following  commands  are  used  by  the  control  station 
operator  and  the  maintenance  technician  in  the  operation 
of  the  CDF0-5000  system. 


ACQ 

Coarse  Signal  Acquisition 

ACC 

Add  a  station  to  a  defined  chain 

AVG 

Average  Time  Modifier 

CAL 

Acquire  or  Kill  the  Calibration  chain 

CD 

Cycle  Deviation  (Envelope  Number  Deviation) 

CLIP 

Signal  Sampling  Clipping 

CN 

Cycle  Nominal  (Envelope  Number  Nominal) 

CTCB 

Cycle  Correction  Factor 

DATE 

Enter  Day-of-Year  (Julian  Date) 

DD 

Delay  Deviation  (Time  Delay) 

DEF 

Chain  Defination 

DN 

Delay  Nominal  (Time  Delay) 

DUMF 

Dump  Acquisition  Table 

GD 

Gain  Deviation 

GN 

Gain  Nominal 

REL 

Release  a  Chain  or  Channel 

RPRT 

Report  of  Chain  Status 

SMPL 

Station  Sample  Time  (Time-of -Arrival) 

STOP 

Stop  a  station  tracking  • 

STRT 

Start  a  station  tracking 

TIME 

Time-of -day 

TMCN 

PLL  tracking  time  constant 

USE 

System  Usage 

* 

Enter  comments  on  log 

# 

Line  erase 

_ 

Character  erase 

The  following  commands  are  used  exclusively  by  the  control  station 

operator: 

OUT 

Strip  Chart  Output 

ZERO 

Strip  Chart  Centering 

The  following 

command  is  used  exclusively  by  the  maintenance 

technician: 

DS? 

Front  Panel  Display 

The  following 

commands  are  used  when  the  CDFO-5COO  is  used  by 

more  than  one 

control  station: 

DENY 

t 

Deny  Master  Request 

MSG 

Message 

M5TR 

Request  Master  Control 

RPMK 

Report  Mask  Defination 

WTMK 

Write  Mask  Defination 

"ACQ"  -  Coarse  Signal  Acquisition 

Signal  acquisition  with  the  LORAN-C  MONITOR  is  completely 
automated.  A  phase  correlation  is  performed,  and  coarse  sample  times 
are  selected  from  the  correlation  table  using  the  data  supplied  in 
the  CHAIN  DEFINITION  ("DEF")  command.  A  fault  message  will  be  prepared 
if  any  of  the  stations  do  not  appear  in  the  correlation  table.  A  front- 
of-pulse  search  determines  the  begining  of  LQRAN-C  energy  for  each 
station.  Tracking  is  assumed  a  few  cycles  back  in  the  pulse,  where  a 
zero-crossing  is  found  and  a  suitable  gain  level  is  determined; 
standard  track  point  search  follows.  Once  the  proper  track  point  is 
found,  this  computation  is  verified.  Should  the  verification  indicate 
that  something  has  gone  wrong,  the  acquisition  will  be  automatically 
re-tried  once.  A  ,fWAIT"  period  allows  for  signal  settling,  at  which 
time  "NOMTNAL5”  are  gathered  for  error  checking.  Once  all  stations 
are  in  the  track  mode,  a  report  will  be  forwarded  to  those  control 
points  which  are  to  receive  a  report. 

INPUT: 

ACQ  (SPACE) (CHAIN  NUMBER) , (OPTIONAL  GAIN  VALUE  TO  3E  USED  DURING 
COARSE  ACQUISITION... default  96  db) 

EXAMPLE: 

ACQ  1  cr  Begin  coarse  acquisition  on  chain  1  with  a 

gain  level  of  96db. 

ACQ  1,50  cr  Begin  coarse  acquisition  on  chain  1  with  a 

gain  level  of  50db. 

CHECKS: 

-  Chain  must  be  defined. 

-  Control  point  must  have  "WRITE”  access 
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"ADD"  -  Add  a  Station  to  a  Defined  Chain 


The  "ADD"  command  may  be  used  to  add  a  LORAN-C  station  to  a 
chain  that  has  been  previously  defined.  Only  control  points 
specified  by  the  "WRITE"  mask  for  the  chain  may  alter  the  chain 
definition  with  the  "ADD"  command.  After  a  new  station  has  been  added 
to  a  chain,  its  sample  strobes  must  be  positioned  on  the  pulses  with 
the  "SMPL"  command  before  the  station  tracking  can  be  initiated  with 
the  "STRT"  command. 

INPUT: 

ADD  (SPACE ) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA ) (STATION  T.D. )  cr 
EXAMPLE: 

ADD  1,W, 15515  cr  Add  a  secondary  named  "WHISKEY"  to  chain  1  with 

an  approximate  time  delay  of  1551?  microseconds. 


CHECKS: 

-  The  chain  must  be  defined. 

-  Control  point  must  have  "WRITE"  access  to- the  chain. 

-  The  CALIBRATION  chain  may  not  be  added.. it  may  be  re-defined. 

-  All  checks  for  CHAIN  DEFINITION  (DEF)  apply. 
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"AVG"  -  Averaging  Time  Modifier 

The  averaging  times  for  all  of  the  LORAN-C  monitor  control 
routines  (except  for  phase  tracking,  see  TMCN)  are  based  on  the 
"AVG"  numbers.  The  averaging  time  is  modified  by  the  computer 
based  on  the  noise  number  to  provide  optimum  performance  under 
varying  noise  conditions.  The  averaging  time  modifier  for  each 
station  is  independent  of  other  stations'  modifiers,  and  as  such, 
allows  precise  control  over  the  automated,  adaptive  routines. 


INPUT: 

A«G  (SPACE) (CHAIN  NUMBER)  (COMMA ) (STATION  NAME) 

Read  the  value  of  the  average  time  modifier. 

AVG  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA ) (VALUE) 
Entering  the  value  for  the  average  time  modifier. 

EXAMPLES: 


AVG  1,M  Read  the  value  of  the  time  modifier  for  master  of  chain  1 
AVG  1,M,2 

Enter  a  value  of  2  for  master  of  chain  1 

NOTE:  AVERAGING  TIME  -  (Rate  X  N)  X  2value 

N  ■  constant 

CHECKS: 

-  Chain  and  station  must  be  defined. 

-  Control  point  must  have  "WRITE"  access. 

-  Value  entered  must  be  between  -1  to  5 

-  *NOTE*  CG-222  states  the  AVG  value  be  set  to  2 
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__  v<n  the  Calibration  Chain 
"CAL"  -  Acquire  or  Ki-U-  ^*ne 

*.  c.HW,Mr «« s r»  s*s-.r«su?s 5  r«s.*s 

br  the  "MASTER"  control  point.  Thiw  F„  command),  and 

calibration  chain  (previously  denned  have  settled  at  the 

oreoare  a  report  when  all  ‘  ray  be  requested  at  this  time, 

normal  track  point.  ’£■£££?£  conjnd  by  the  "KASTta"  control 
Normal  tracking  can  be  resumec  on 

point. 

INPUT: 

CAL  cr  Begin  calibration  mode 
CAL  K  cr  Terminate  calibration  mode 

EXAMPLE: 


CAL  cr 


CHECKS: 


ssH-r’tSr^sss'-s 

print  a  status  report. 


-  Only  the  "MASTER"  control  point  can  control  calibration. 

-  Calibration  chain  must  be  defined 


i 
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"CD"  -  Cycle  Deviation 


The  threshold  for  error  monitoring  of  the  envelope  tracking  is 
determined  by  an  excursion  beyond  ♦/-  one  deviation  quantum  from 
the  nominal  envelope  number  (in  cycle  numbers).  The  envelope  deviation 
setting  for  a  station  may  be  read  by  any  control  point,  or  may  be 
altered  or  set  by  the  "MASTER"  control  point.  A  deviation  value  of 
zero  BYPASSES  the  "envelope  out-of -tolerance"  error  checking. 

INPUT: 

CD (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 

Read  out  the  deviation  setting  for  a  station 
CD  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME ) (COMMA) (VALUE)  cr 
Assign  a  deviation  value  for  a  station 


EXAMPLE : 

CD  1, M  cr 
CD  1,M,0.5 

CD  1,M,C 


Read  out  cycle  deviation  for  Master  of  chain  1 

Enter  a  value  of  5  microseconds  deviation  for 
master  of  chain  1. 

Terminate  cycle  deviation  alarm  limits  for 
Master  of  chain  1 


CHECKS: 

-  Chain  and  channel  referenced  must  beNdefined. 

-  If  new  cycle  deviation  number  is  being  entered: 

-  Control  point  must  be  the  "MASTER"  control  point. 

-  Value  entered  must  be  less  than  50  microseconds. 

-  CO-222  says  CD  should  be  set  to  assigned  tolerance. 
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"CLIP"  -  Signal  Sampling  Clipping 


Amplitude  limiting  of  large  signals  is  accomplished  by  using  the 
"CLIP"  command.  Averages  of  the  samples  are  gathered  by  the  hardware 
(phase,  amplitude,  and  cycle)  are  constantly  updated.  Should  samples 
be  received  which  are  larger  than  the  clipping  level,  these  samples 
will  be  forced  back  to  the  respective  clipping  limits.  The  clipping 
operates  symmetrically  about  the  nominal  value  of  the  sample  being 
clipped.  For  phase  samples,  this  nominal  value  is  0,  however  for  the 
cycle  and  amplitude  ssmples  the  nominal  values  are  approximately  112 
and  125  units.  The  clip  command  is  very  effective  in  reducing  servo 
tracking  Jitter  caused  by  impulsive  type  noise  and  cross-rate  signals. 

As  a  general  rule,  clip  levels  of  less  than  100  should  not  be  used  since 
this  may  adversely  affect  tracking  performance  of  the  FLL's. 


INPUT: 

CLIP  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 
Read  out  clipping  level  for  a  station 
CLIP  (SPACE) (CHAIN  NUMBER ) (COMMA ) ( STATION  NAME) (COMMA) (VALUE)  cr 
Enter  a  clipping  value 

EXAMPLE: 

Read  clipping  level  for  Master  of  chain  1 

Enter  clipping  level  of  130  units  for  master 
of  chain  1 

CHECKS: 

-  Chain  and  station  referenced  must  be  defined. 

-  If  new  clipping  level  is  being  entered: 

-  Control  point  must  be  the  "MASTER"  control  point. 

-  .  CG-222  says  that  if  you  use  the  CLIP  command  the  value  entered 

must  not  be  less  than  130. 


CLIP  1,M  cr 
CLIP  1,M,130  cr 
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"CN"  -  Cycle  Nominal 

The  "nominal"  cycle  number  for  a  station  is  initally  set  for  each 
station  during  the  "wait"  period'  of  acquisition.  This  nominal  value 
may  be  read  by  any  control  point,  or  may  be  altered  by  the  "MASTER" 
control  point.  The  nominal,  in  conjunction  with  the  deviation 
command  (see  Cycle  Deviation),  controls  the  error  reports  for 
a  station. 

INPUT: 

CN  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 

Read  out  nominal  cycle  number  for  a  station 
CN  (SPACE)(CHAIN  NUKWR)  (COMMA)  (STATION  NAME)  (COMMA)  (VALUE)  cr 
Enter  a  cycle  nominal  for  a  station 

EXAMPLE: 

CN  1,M  cr  Read  out  cycle  nominal  for  Master  of  chain  1 

CN  1,M,3.00  cr  Enter  a  cycle  nominal  of  3.00  for  Master  of 

chain  1 

CHECKS: 

-  Chain  and  channel  referenced  must  be  defined. 

-  If  a  new  cycle  nominal  is  being  entered: 

-  Control  point  must  be  "MASTER"  control  point 


Value  entered  must  be  less  than  5  cycles 


"CYCR"  -  Cycle  Correction  Factor 

A  correction  for  RF  delay  for  each  station  nay  be  entered.  The 
nunber  entered  alters  the  envelope  number  (in  cycles)  for  the 
appropriate  station.  The  correction  allows  calibration  of  the  system 
for  measurement  of  ECD  (Envelope-to-Cycle  Difference)  for  each  station. 
The  cycle  correction  may  be  read  by  any  control  point. 

INPUT: 

CYCR  (SPACE) (CHAIN  NUMBER ) (COMMA ) (STATION  NAME)  cr 
Read  out  the  current  value  of  CYCR 

*  CYCR  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME )(COHMX) (VALUE)  cr 
Enter  a  value  for  CYCR 

EXAMFLE: 

CYCR  i,M  cr  Read  out  current  CYCR  for  Master  of  chain  1. 

CYCR  1,M,0.99  cr  Enter  a  CYCR  value  of  0.99  for  Master  of 

chain  1. 

CHECKS: 


-  Chain  and  channel  referenced  must  be  defined. 

-  If  entering  a  new  value: 

-  Control  point  must  be  the  "MASTER"  control  point. 

-  Values  entered  must  be  greater  than  0  but  less  then  1.99. 
Value  of  1.00  ■  no  correction. 
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" DATE "  -  Enter  day  of  year 

The  "DATE"  command  allows  entry  of  the  day  of  the  year.  The  day-of- 
year  and  time-of-day  are  affixed  to  several  processor  outputs.  Any  control 
point  may  demand  the  day-of-year  and  time-of-day  by  use  of  the  "TIME" 
query.  The  day-of-year  is  incremented  at  midnight  (2U:00:00),  and  is 
reset  to  1  after  day  366.  The  day  clock  can  only  be  manually  reset  by 
the  "MASTER"  control  point. 

INPUT: 

DATE  (SPACE) (DAY-OF-vEAR)  cr 

Enter  day-of-year.  (time  remains  unchanged) 

EXAMPLE: 

DATE  33  cr  Enter  day-of-year  for  February  2. 

CHECKS: 

-  Day-of-year  must  be  a  numeric  entry,  between  1  and  366. 

-  Control  point  must  be  the  "MASTER"  control  point. 


"DD"  -  Delay  Deviation 


The  threshold  for  error  monitoring  of  time  difference  data  is 
determined  by  an  excursion  beyond  */-  one  deviation  quantum  from  the 
nominal  time  difference  (in  microseconds).  The  time  difference 
deviation  setting  for  a  secondary  station  may  be  read  by  any  control 
point,  or  may  be  altered  or  set  by  the  "MASTER"  control  point.  A 
deviation  value  of  0  BYPASSES  "time  difference  out-of-tolerance" 
error  checking. 


INPUT: 

DD  (SPACE) (CHAIN  NUMBER ) (COMMA ) (STATION  NAME)  cr 
Read  out  deviation  for  a  station 
DD  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA) (VALUE)  cr 
Enter  a  new  deviation  value  for  a  station 


EXAMPLE: 

DD  1,X  cr  Read  out  delay  deviation  for  Xray  of  chain  1. 

DD  1,X,0.1  Enter  a  delay  deviation  for  Xray  of  chain  1  of 

100  nanoseconds. 


CHECKS: 

-  Chain  and  channel  referenced  must  be  defined. 

-  Station  referenced  must  be  a  secondary  station. 

-  If  new  values  are  entered: 

-  Control  point  must  be  the  "MASTER"  control  point. 

-  Value  entered  must  be  less  than  }2  microseconds. 

•  CG-222  states  DD  to  be  set  at  100  nanoseconds 
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"DEF"  -  Chain  Definition 


The  define  (DEF)  command  may  be  used  by  any  control  point  to 
enter  a  LORAN-C  chain  in  the  system  usage  table*  All  information 
perteient  to  future  use  of  the  LORAN-C  chain  is  entered  vith  this 
command. 

Once  the  program  has  determined  that  the  input  line  if  free  of 
syntax  errors,  a  "CHAIN  NUMBER"  is  assigned  (1  through  U).  The 
operator  assigns  a  one-letter  name  to  each  station  of  the  chain  (the 
MASTER  is  implicitly  assigned  "H"  when  you  define  the  rate),  which, 
along  with  the  chain  number,  is  used  to  uniquely  identify  each  station* 

There  is  also  a  space  reserved  for  the  "calibrate"  chain.  The  "MASTER" 
control  point  must  define  this  chain  prior  to  any  calibration  checks. 

Protection  for  the  chain  against  unauthorised  tampering  by  other 
control  points  is  provided  by  specifying  those  control  points  which 
may  "WRITE"  or  change  data  for  a  chain,  and  control  points  which 
receive  reports  about  a  chain's  activity.  These  specifications  are 
initialized  to  all  control  points  for  "report",  and  the  control  point 
which  defined  the  chain  for  "WRITE".  (The  "write"  mask  for  the 
calibrate  chain  cannot  be  reassigned.) 

If  the  definition  is  accepted,  the  number  assigned  to  the  chain  will 
be  output,  along  with  the  number  of  chains  and  channels  now  in  use. 

The  order  in  which  chains  are  entered  into  the  system  makes  no 
difference  in  the  manner  in  which  they  will  be  tracked  or  in  the  quality 
of  the  Time  Delay  tracks.  Their  position  on  the  oscilloscope  selector 
switch  will.be  in  the  order  that  they  are  defined. 

INPUT: 

DEF  (SPACE) (GRP  in  usee) (comma ) (SECONDARY  #1  NAME) (COMMA) (SECONDARY 

NUMBER  1  APPROXIMATE  TIME  DELAY) (COMMA )  (SECONDARY  NAME) (COMMA) 
(SECONDARY  2  APPROXIMATE  TIME  DELAY)  etc.. 

DEF  (SPACE) (C) (COMMA )(STA  NAME) (COMMA ) (STA  TIME  DELAY) (COMMA) 

(STATION  NAME) (COMMA) (STA  TIME  DELAY) 

EXAMPLE: 

DEF  996OO,W,15515,X,27OU2,I,U3051,Z, 59915  cr 
Enters  data  for  loran  rate  9960 

DEF  C, 60000,  A, 20000, B.LOOOO  cr 

Enters  data  for  the  calibrator  chain 
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"DEF" 


CHECKS: 

Non-calibration  chain: 

There  must  be  an  unused  chain  (maximum  chain  number  ■  U) 

There  must  be  an  unused  channel  for  each  station  in  the 
definition.  (Master  occupies  a  channel  and  maximum  channel 
usage  ■  8) 

The  GRP  entered  must  not  be  that  of  a  previously  defined 
cha in. 

Calibration  and  non-calibration: 

The  GRP  entered  must  be  positive. 

The  GRP  entered  must  be  less  than  131,072  usee. 

All  time  delays  must  be  positive 

All  time  delays  must  be  less  than  131,072  usee. 

All  time  delays  must  be  equal  to/less  than  1  GRP. 

Each  station  must  be  at  least  10000  us  from  every  other 
station  on  the  chain. 

The  names  entered  may  not  be  repeated  on  a  given  chain 
(remember  the  MASTER  station  is  assigned  the  letter  "M" 
when  you  define  the  Loran  rate). 

Calibration  only: 

There  must  not  be  more  than  3  channels. 

Calibration  definition  may  only  be  done  by  the  "MASTER" 
control  point. 
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"DN"  -  Delay  Nominal 


The  nominal  time  delay  for  a  secondary  is  initiall  set  during  the 
"wait"  period  of  acquisition.  This  nominal  value  may  be  read  by  any 
control  point,  or  may  be  altered  by  the  "master"  control  point.  The 
nominal,  in  conjunction  with  the  deviation  command  (see  Delay  Deviation), 
controls  the  error  reports  for  a  station. 

INPUT: 

DN  (SPACE) (CHAIN  NUMBER) (COMMA) (STATION  NAME)  cr 
DN  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA ) (VALUE )  cr 
EXAMPLE: 

DN  1,X  cr  Read  out  the  delay  nominal  for  Xray  of  chain  1 

DN  l,X,270L2.2ii  Enter  a  nominal  for  Xray  of  chain  1  of  270L2.2L  usee 

CHECKS: 

-  Chain  and  channel  referenced  must  be  defined. 

-  Station  referenced  must  be  a  secondary. 

-  If  new  delay  nominal  is  being  entered: 

-  Control  point  must  be  the  "master"  control  point. 
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"DUMP "  -  Dump  Acquisition  Table 


A  table  of  correlation  values  and  times  of  arrivals  produced  for 
every  chain  during  acquisition.  This  table  provides  information  about 
station  signal  quality  and  time-of-arrival.  The  correlation  number  of 
6U  indicates  good  signal  quality.  The  correlation  number  has  a  range  of 
25  to  6U.  This  table  may  be  printed  at  any  time  following  acquisition, 
and  can  be  used  for  manual  signal  acquisition.  Since  the  receiver's 
internal  oscillator  drifts  slowly  with  time,  the  dump  table  values  will 
eventually  become  invalid. 

INPUT: 

DUMP  (SPACE) (CHAIN  NUMBER)  cr 
EXAMPLE: 

DUMP  1  cr  Print  chain  I's  acquisition  table 

CHECK: 

•  "Chain  Number"  must  be  defined 

•  "Chain  Number"  has  completed  phase  one  of  acquisition 
(coarse  acquisition) 

-  Information  obtained  from  a  dump  table 

-  Station  Identification  (Master  or  Secondary) 

-  Signal  Quality 

-  Times-of-Arrival  (TQA) 


15 


"GD"  -  Gain  Deviation 


The  threshold  for  error  monitoring  of  AGC  levels  is  determined  by  an 
excursion  beyond  +/-  deviation  quantum  from  the  nominal  gain  (in  dB). 
The  gain  deviation  setting  for  a  station  may  be  read  by  any  control 
point,  or  may  be  altered  by  the  ’’master"  control  point.  A  deviation 
value  of  0  bypasses  error  checking  for  AGC-level  out  of  tolerance. 

Gain  deviations  of  less  than  5  should  not  be  used  since  gain  error 
messages  may  occur  during  station  blink. 

INPUT: 

GD  (SPACE ) (CHAIN  NUMBER ) (COMMA ) (STATION  NAME)  cr 
GD  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA ) (VALUE)  cr 
EXAMPLE: 

GD  1,M  cr 
GD  1,M,6  cr 

GD  1,M,0  cr 
CHECK: 

-  Chain  and  channel  referenced  must  be  defined 

-  If  entering  new  value 

-  Control  point  must  be  "master”  control  point 

-  CG-222  states  GD  values  to  be  set  at  6  dB 


Read  out  gain  deviation  for  Master  of  chain  1 

Enter  a  gain  deviation  of  6  dB  for  Master  of 
chain  1 

Terminate  gain  deviation  error  checking. 
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"GN"  -  Gain  Nominal 


The  "nominal"  gain  value  for  a  station  is  initially  set  for  each 
station  during  the  "wait"  period  of  acquisition.  This  nominal  value 
may  be  read  by  any  control  point,  or  may  be  altered  by  the  "master" 
control  point.  The  nominal,  in  conjunction  with  the  deviation 
command  (see  Gain  Deviation),  controls  the  error  reports  for  a  station. 

INPUT: 

GN  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 
GN  (SPACE) (CHAIN  NUMBER ) ( COMMA ) ( STATION  NAME) (COMMA ) (VALUE) 


EXAMPLE: 

GN  1,M  Read  out  gain  nominal  for  master  of  chain  1 

GN  1,M,56  Enter  a  gain  nominal  of  56  for  master  of  chain  1 


CHECK : 


-  Chain  and  channel  referenced  must  be  defined 

-  If  new  value  is  being  entered: 

-  Control  point  must  be  the  "master"  control  point. 

-  Value  entered  must  be: 

-  between  0  and  127 
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"REL"  -  Release  a  chain  or  channel 

The  "REL"  command  is  used  to  release  a  chain  (or  channel)  from  the 
system  usage  table.  Since  this  command  completely  eliminates  the  chain 
(or  channel)  from  the  system,  one  should  use  this  command  carefully. 

The  total  usage  (chains  and  channels)  of  the  system  is  output  after 
the  command  has  been  executed. 

INPUT: 

REL  (SPACE) (CHAIN  NUMBER)  cr 

REL  (SPACE)  (CHAIN  NUMBER)  (COMMA )  (STATION  NAME)  cr 
EXAMPLE: 

REL  1  cr  Release  chain  1  from  system  usage 

REL  1,X  cr  Release  station  Xray  from  system  usage,  (chain  1) 

CHECK : 

-  The  chain  or  channel  must  be  defined 

-  Control  point  must  have  "write"  access  to  the  chain 

-  The  "calibration"  chain  cannot  be  released  (it  may  only  be 
redefined) . 
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"RPRT"  -  Report  of  chain  status 

Report  information  for  each  chain  is  prepared  on  demand.  Repetitive 
time-interval  reports  may  be  requested.  The  minimum  time  interval  for 
report  generation  is  thirty  seconds.  This  interval  may  be  too  short  if 
the  system  is  reporting  to  several  control  points.  It  nay  "knot"  the 
system  up  with  continuous  reports.  Care  should  be  taker,  in  selecting 
a  time  interval  for  report  generation. 

The  following  information  is  included  in  the  report  for  a  given 
chair,  (one  line  per  channel): 

-  Name  of  channel 

-  Current  mode  of  operation 

-  K  ■  inactive  station 

-  A  *  active  station 

-  AF  *  Front -of -pulse  search 

-  AS  ■  Settle  (for  AGC,  zero-crossing  lock) 

-  AC  •  Track  point  search  (Cycle  selection) 

-  AV  *  Verify  track  point 

-  NOTH,  -  up  to  this  point  if  the  receiver  did  not  like 
the  track  point  (2.5  or  3.5),  it  may  go  to  re-try. 

-  AV7  *  Wait  for  final  settle;  pick-up  "nominals" 

-  AT  *  Normal  Tracking 

-  Gain  level 

-  Noise  Number  3 O 

-  Cycle  Number 

-  Sample  time  (TQA) 

-  Time  delay  (TD) 

The  signal  ECD  can  be  calculated  from  the  cycle  number: 

SCD  -  10(3. 00-Cycle  Number) 

The  SNR  (Signal-to-Noise  Ratio)  can  be  calculated  from  the  noise 
number: 

SNR  ■  10,5  l«6lo  (37/ftoise  Number) 
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"RPRT" 


number ) . 


OSC  offset  (parts  per  10?) 


Sample  time  (ns) 

Time  between  samples  (sec) 


Oscillator  offsets  ®  m  internally  seroed 

lS-rbTtto1receivei>r?U's;  Offsets  larger  than  this  ray  affect 
acquisition  performance  under  poor  STO  conditions. 

INPUT: 

RPRT  (SPACE) (CHAIN  NUM3ER)  cr 

RPR?  (SPACE) (CHAIN  NUMBER) (COMMA) (VALUE)  cr 

EXAMPLE: 


Prepare  report  on  chain,  1 

Prepare  report  on  chair.  1  every  600  seconds 


RPRT  1  cr 
RPRT  1,600  cr 
CHECK: 

-  Chain  referenced  must  be  defined 

.  If  time-interval  reporting,  minimum  report  time  is  30  seconds  end 
the  maximum  report  time  is  20L7  seconds. 
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"SMPL"  -  Station  sample  time 

Although  signal  acquisition  and  tracking  are  automatic,  the  sample 
time  for  a  station  may  be  entered  manually  by  a  control  point.  Extreme 
care  should  be  exercised  when  altering  a  station's  sample  time  from  a 
remote  control  point;  it  is  possible  to  enter  a  sample  time  that  would 
force  tracking  on  an  undesired  part  of  the  LORAN-C  pulse,  or  worse, 
attempt  tracking  where  there  is  no  LORAN-C  pulse.  If  a  station  is  added 
to  a  chain,  it's  sample  number  may  be  calculated  by  adding  the  TD  to 
the  master  sample  time.  If  this  exceeds  the  GRI,  then  subtrack  1  GRI 
for  the  correct  secondary  station  sample  number. 

INPUT: 

SMPL  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 

SMPL  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA ) (VALUE)  cr 
EXAMPLE: 

SMPL  1,M  Read  Master  sample  time  (chain  1) 

SMPL  1,M,9876  Enter  Master  sample  time  of  9876  usee,  (chain  1) 

CHECK : 

-  Chain  and  channel  referenced  must  be  defined. 

-  If  a  new  value  is  being  entered: 

-  Control  point  must  be  the  "master"  control  point 

-  Value  of  the  input  must  be  positive  and  less  than  1  GRI 
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"STOP"  -  Stop  a  station  tracking 


The  status  (tracking/stopped) 
a  station  is  stopped,  the  "STRT" 
the  station. 


may  be  controlled  manually.  Once 
command  may  be  used  to  re-acpuire 


INPUT: 

STOP  (SPACE) (CHAIN  NUMBER) (COMMA) (STATION  NAME)  c r 


IXAMPLF.: 

STOP  1,X 


Stops  station  Xray  from  tracking 


CHECK :  _ 

.  Chain  and  channel  referenced  must  be  defined 

-  Control  point  must  have  "write”  access 


"STRT"  -  Start  a  station  tracking 


Acquisition  for  a  station  may  be  initiated  with  the  "STP.T”  command. 
The  acquisition  begins  at  the  sample  time  entered  by  the  "SMPL" 
command  (or,  the  last  sample  time  for  the  station).  Front-of-pulse 
search,  zero-crossing  lock,  and  standard  track  point  determination 
proceed  as  with  the  chain  acquisition  routine,  (see  ACQ) 

INPUT: 

STRT  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 
EXAMPLE: 

STRT  1,X  cr  Start  station  Xray  of  chain  1  tracking. 


CHECK: 


-  Chain  and  channel  referenced  must  be  defined 

-  Control  point  must  have  "write”  access 
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"TIME”  -  Time-of-Day 


The  tirae-ef-day,  along  with  the  day-of-year,  is  used  to  preface 
reports  and  error  messages.  The  clock  Is  maintained  in  the  software  by 
using  the  one  second  interrupt  generated  by  the  RCVR.  The  clock  should 
thus  be  reset  after  any  processor  restart  (either  manual  restart  or 
power  fail  auto-restart). 

The  clock  is  maineained  as  a  2ii  hour  clock,  reading  to  23  hours,  59 
minutes,  59  seconds  -  then  resetting  to  QQ:0C:00  at  midnight  (at  which 
the  day-of-year  is  incremented), 

NOTE:  The  day  clock  can  only  be  manually  reset  by  the  "master" 
control  point. 


INPUT: 

TIME  cr 

TIKE  (SPACE) (HOURS ) ( : ) (MINUTES) ( : ) (SECONDS)  cr 
EXAMPLE: 


TIME  cr  Read  day-of-year  and  time-of-day  from  the 

system  clock. 

TIME  01:09:kli  cr  Set  the  clock  to  01  hours,  09  minutes,  and  hh 

seconds  (day-of-year  remained  unchanged). 

CHECK : 


-  Hours  must  be  a  positive  number,  less  than  2h 

-  Minutes  and  seconds  must  be  a  positive  number,  less  than  60 


-  Control  point  must  be  the  "master"  control  point 
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"TMCN"  -  PLL  Time  constant  * 

The  time  constant  for  the  software  low-pass  filter  incorporated  in 
the  phase-tracking  algorithm  may  be  entered  or  examined  with  the  "TMCN" 
command.  The  operator  enters  values  in  units  of  GRI's.  Values  of  100, 
200,  iiOO,  80C,  or  1600  GRI's  may  be  selected. 

INPUT: 

TMCN  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME)  cr 
TMCN  (SPACE) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA) (VALUE)  cr 
EXAMPLE: 

TMCN  1,M  cr  Read  PLL  time  constant  for  Master  of  chain  1 

TMCN  1,M,200  cr  Enter  PLL  time  constant  of  20C  for  Master 

of  chain  1 

CHECK: 

-  Chain  and  channel  referenced  must  be  defined 

-  If  value  is  being  entered: 

-  Control  point  must  have  "write”  access  to  the  chain 

-  Values  of  the  incut  must  be  one  of  the  following; 

ICO,  200,  LOO,  800,  1600 

-  To  determine  the  servo  loop  time  constant  in  seconds 

SERVO  LOOP  TC  -  TMCN  VALUE  *  RATE  (in  seconds) 
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"USE"  -  System  Usage 


Before  defining  a  chain  or  adding  a  station  (channel)  to  a  chain 
definition,  the  operator  may  check  to  see  if  there  is  room  in  the  system 
for  the  stations  to  be  added.  The  "USE"  command  allows  the  operator  to 
query  the  system  for  both  the  number  of  chains  and  the  number  of  tracking 
channels  in  use.  (System  capacity  is  four  chains}  eight  channels) 

INPUT: 

USE  cr 

EXAMPLE: 

USE  cr  The  processor  would  respond  with: 

SYSTEM  USAGE:  1  CHAIN  3  CHANNELS 

CHECK: 

None 
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«*"  -  Enter  Comments 


It  ts  often  desirable  to  comment  on  the JiuJle^VspicUl 
control  point.  Sinc*  the the^'system  to  allow  echoing  of  the  data. 

corona  nd  ia  ignored  dy  tda  syat..  until  a 

carriage  return  is  typed. 


INPUT: 

*  (COMMENTS)  cr 
EXAMPLE: 

*  Adjusted  oscillator 

CHECK : 

None 
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«  Line  Erase 

cjirs. « £  *  zzssx**^'** 

a  carriage  return. 

INPUT: 


*XAKF1£: 

ACQ  1# 
CHECK: 

None 


Cancal  acquisition  of  chain  1 
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II  II 


-  Character  Erase 


If  a  typing  mistake  is  made  during  entry  of  a  command,  the  last 
character  can  be  erased  with  the  (shift  "0")  command.  When  this 
editing  command  is  used  repeatedly,  successive  characters  are  erased 
'until  the  begining  of  the  line  is  reached. 


INPUT: 


EXAMPLE : 


TMCN  1,  2,M  cr  Corrects  chain  1  to  chain  2 


CHECKi 


"OUT"  -  Strip  Chart  Output 


A  coded  block  of  TTT  data  containing  strip  chart  update  information 
is  transmitted  by  the  computer  every  10  seconds.  This  information  is 
translated  at  the  control  station  by  the  CDF0-6019  Information  Switch 
into  analog  voltages  to  drive  up  to  S  strip  ebsrt  recoroers.  The  strip 
chart  updat  blocks  are  prevented  from  reaching  the  control  station 
teleprinter  by  the  Information  Switch. 

INPUT: 

OUT  (SPACE) (CHAIN  NUMEER) (COMMA) (STATION  NAME ) (COMMA ) (DATA ) (COMMA ) 
(CHART  RECORDER  NUMBER)  cr 

DATA 

C  “  Cycle  number 

D  »  Time  delay  (secondaries  only) 

K  *  stops  all  updates  from  the  processor 

EXAMPLE: 

OUT  1 , M , C , 1  cr  Output  Chain  1,  Master  station,  Cycle  information 

on  chart  recorder  number  1. 

OUT  K  cr  Stops  all  updates  from  the  processor 

CHECK: 

-  Control  point  must  have  "write"  access 

-  Chain  and  channel  must  be  defined 
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"ZERO'’  -  Strip  Chart  Centering 

The  strip  chart  outputs  set  up  with  the  "out"  commands  and  can  be 
adjusted  with  the  "ZERO"  command. to  center  the  recorder  pens  for  the 
desired  TD's  or  Cycle  Numbers.  The  value  of  the  "ZERO"  command  is 
calculated  by  taking  the  fractional  part  of  the  DATA  (TD  or  CN)  and 
adding  0.5.  The  result  is  the  ZERO  command  for  centering  the  chart. 

IKFUT: 

ZERO  (SPACE) (CHART  RECORDER  NUMBER ) (COMMA ) ( OFFSET  VALUE)  cr 
EXAMPLE: 

ZERO  1  cr  Read  the  current  value  of  offset  for  chart 

recorder  number  1. 

ZERO  1,.83  Centers  chart  recorder  number  1  for  an  offset  of 

.83  (i.e.  Say  X  TD  is  on  recorder  number  1  with 
a  TD  number  of  2735U.33  usee;  .33  ♦  .5  ■  .83) 

ZERO  2,. 39  Centers  chart  recorder  number  3  for  an  offset  of 

.39  (i.e.  Say  M  CN  is  on  recorder  number  3  with 
a  CN  of  2.89  cycles;  .8.9  *  .5  *  1.39  use  .39) 

CHECK : 

-  Recorder  channel  must  be  any  number  1  through  8 
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"DSP"  -  Front  Panel  Display 


Complete  control  Is  provided  over  the  data  displayed  on  the  two 
front  panel  NIXIE  displays,  D1  and  D2. 

INPUT: 

DSP  (SPACE) (UorL) (COMMA ) (CHAIN  NUMBER) (COMMA ) (STATION  NAME) (COMMA ) (DATA )  cr 
DSP  (SPACE) (UorL) (COMMA ) (T)  cr 
EXAMPLE: 

DSP  U,T  cr  Display  time  in  the  upper  display 

DSP  L,1,M,C  Display  chain  1,  Master  station,  Cycle  information 

in  the  lower  display. 

CHECK: 

-  Control  point  altering  NIXIE  displays  must  be  the  "master"  control 
point. 

-  Chain  and  channel  referenced  must  be  defined 

-  Station  referenced  must  be  a  secondary  station  for  Time  Delay 

-  Information  that  can  be  displayed  in  the  NIXIE  Display: 

C  ■  Cycle  numbers 
S  *  Sample  time  (TQA) 

T  *  Time-of-day 
D  ■  Time  Delay  (TD) 
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"DENY"  -  Deny  Master  Request 

Once  a  master  request  has  been  initiate  there  is  a  60  second 
clock  in  the  processor  that  begins  counting.  If  the  current  master 
control  point  does  not  "DENY"  the  master  request,  master  control 
will  be  passed  to  the  control  point  initiating  the  request. The  new 
control  point  will  have  control  over  the  calibration  chain,  nominal 
values,  and  deviations. 

INPUT: 

DENY  cr 

EXAMPLE: 

001  00:01:23  MASTER  REQUEST  B  cr 

The  above  is  control  point  B  asking  for 
master  control. 

DENY  cr  You  have  just  denied  control  point  B  master 

control  if  you  entered  "DENY"  before  the 
60  second  clock  completed  counting. 

CHECK : 

None 
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"MSG"  -  Message 


Mess.gss  may  t.  relayed  bstveen  Ta^ln 

gSCXI  code  la  ua.d  In  the  soft*.™, SL—^cSJSJ? retain" , 
the  message  (except  the  spec!  shell"  character  (control  0) 

It  may  be  especially  »s.M  «  f *  single  ™ss.€«  may  be 
to  alert  the  recover  to  f5**1**"*®  including  a  special  routing  from 
routed  to  one  or  many  control  points,  mciuaxng  » 

the  sender  to  himself. 


INPUT: 


ffiO  (SP»C£)(ffiCEIVWO  C0S7R01P0IHTS)(C0MK*)()ESSA0£  content)  cr 


EXAMPLE: 


MSG  ABC,  ARE  YOU 


RECEIVING  BAD  DATA  FROM  THIS  SITE?  cr 


The  above  you  are 
if  the  lormonsite 


asking  control  points  Ay  E,  and  C 
is  feeding  them  bad  information. 


CHECK: 

-  U1  names  In  the  list  must  be  proper  control  point  names  (l.e 
A,  3,  C,  D,  E,  or  7) 

.  mere  must  be  at  least  one  oontrol  point  name  in  the  list. 
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"K5TR"  -  Request  Master  Control 

The  LORAN-C  monitor  has  a  "master"  control  point,  which  is  the  only 
control  point  that  can  perform  special  tasks  such  as:  setting  "TIME", 
setting  "DATE",  controlling  the  calibration  chain,  entering  nominal 
values,  and  entering  deviation  values  for  alarm  generation. 

Control  point  "A"  is  initially  the  "master"  control  point.  The 
"master"  status  may  be  requested  by  any  control  point,  and  if  no  other 
control  point  denies  that  request,  the  master  status  is  passed  from 
the  previous  "master"  to  the  requesting  master. 

INPUT: 

MSTR  cr  Request  "master"  control  point  status. 

CHECK: 

None 
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"RPMK"  -  Report  Mask  Definition 

The  destination  for  reports  prepared  for  each  LORAN-C  chain  may 
be  specified  with  the  "RPMK"  command.  This  command  defines  a  "mask" 
of  control  points  to  which  the  reports  are  sent.  The  ''report  mask'' 
can  only  be  altered  by  control  points  with  "write"  access  to  a  chain. 
The  "report  mask"  is  initialized  to  all  control  points  when  a  chain 
is  defined. 

INPUT: 

RPMK  (SFACE) (CHAIN  NUMBER ) (COMMA ) (LIST  OF  CONTROL  POINTS)  cr 


EXAMPLE: 


RPMK  1,ABC  Forwards  all  future  reports  to  control  points 

A,  B,  an  C  only. 


CHECK: 

-  Control  point  must  have  "write"  access  to  the  chain 

-  All  names  in  the  list  must  be  proper  control  point  names  (i.e. 
A,  P,  C,  D,  E,  or  F). 

-  There  must  be  at  least  one  valid  control  point  in  the  list 
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’V™K"  -  Write  Mask  Definition 

ta  ripe  ring  ^i  t  h  TliT?r  **  ^^horized 

2S  S  S-S  . 

J;r  "ter“lne  “hether  th<  ~  -----  eh.ln. 

WB*  (SP1CE)(™I»  ™<c,m,arsT  or  control  points,  cr 

EXAMPLE:  '  HE 


WTMX  1,A  cr 


CHECK: 


Only  control  point  A  can 

Pertaining  to  chain  1  "8'  *”y  d,U 


'  “  E2,"*-"**  «•  exercise  co^nd  must  „.va 

'  r.rTA’t  nT  ™  Point  names  (i.a. 

-  At  least  one  control  point  in  tw.  i •  , 

10  "0id  S!St8”In8  '»  el“o„”“i^  T^VZnU 


«*»«•  a. 
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A l' S’] Ro.N  3(>00  i.K'UVl.R 

NOISE  NUMBER  -  SNR  RELATIONSHIP  (TOR  GAUSSIAN  NOISE) 


NOISE  if 

SNR 

NOISE  if 

SNR 

NOISE  if 

SNR 

1 

16.47 

25 

1.79 

49 

-1.28 

2 

13.31 

26 

1.61 

50 

-1.37 

3 

11.46 

27 

1.44 

55 

-1.81 

4 

10.14 

28 

1.27 

60 

-2.20 

5 

9.13 

29 

1.11 

65 

-2-57 

6 

8.30 

30 

0.96 

70 

-2.91 

7 

7.59 

31 

0.81 

75 

-3.22 

8 

6.98 

32 

0.66 

80 

-3.52 

9 

6.45 

33 

0.52 

85 

-3.79 

10 

5.97 

34 

0.39 

90 

-4.05 

11 

5.53 

35 

0.25 

95 

-4.30 

12 

5.13 

36 

0.  12 

100 

-4.53 

13 

4.77 

37 

0.00 

110 

-4.97 

14 

4.43 

38 

'0.12 

120 

-5.37 

15 

4.  12 

39 

'0.24 

130 

-5.73 

16 

3-82 

40 

'0.36 

140 

-6.07 

17 

3.55 

41 

-0.47 

150 

-6.38 

18 

3-29 

42 

-0.58 

160 

-6.68 

19 

3.04 

43 

-0.69 

170 

-6.95 

20 

2.81 

44 

-0.79 

180 

-7.21 

21 

2.58 

45 

-0.S9 

190 

-7.46 

22 

2.37 

46 

-0.99 

200 

-7.69 

23 

2.17 

47 

-1.09 

250 

-8.71 

24 

1.97 

48 

-1.19 

300 

-9.54 
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ACQ  FAULT 

The  receiver  acquisition  process  begins  by  examining  the  GRI  specified  or 
Loran-C  signals.  The  result  of  this  search  is  a  correlation  table  which  may 
be  examined  by  the  user  with  the  "DUMP"  command.  If  no  Loran-C  energy 
(coherent  RF)  has  been  found  in  the  loran  repetition  interval  for  the  station 
specified,  the  ACQ  FAULT  message  is  printed. 

EXAMPLE:  *  001  01:21:03  1,W  ACQ  FAULT 

PROBABLE  CAUSE: 

Signal  off  air  or  SNR  less  than  -15  dB. 

Incorrectly  specified  time  delay  for  a  secondary  station.  Delete 
the  station  with  the  proper  time  delay. 

If  all  stations,  or  just  the  Master  Station,  the  problem  may  be 
incorrectly  specified  loran  rate.  Delete  the  chain  and  redefine 
with  the  proper  rate  and  time  delays. 

Receiver  in  CAL  mode  after  system  calibration.  Type  CAL  K  cr 

-  Loss  of  signals  to  the  receiver. 

Insufficient  warmup  time  for  the  receiver's  internal  temperature 
stabilized  crystal  oscillator.  Allow  at  least  10  minutes  warm-up 
after  receiver  turn-on  before  attempting  to  acquire  signals. 


1 


ET50/G 

10/29/80 


BLINK  BGN/BLINK  END 

The  blink  code  is  used  by  the  Loran-C  system  to  warn  the  user  that  a  problem 
exists  in  one  or  more  chain  baselines  and  these  stations  should  not  by  used 
for  navigation  purposes.  The  blink  indication  is  detected  by  the  receiver 
when: 


The  Master  Station  9th  pulse  is  turned  off  and  on  with  the  blink 
code  for  the  baseline  affected. 

-  A  secondary  Station  turns  off  and  on  the  first  two  pulses  in  the 
standard  secondary  blink  code. 

The  receiver  uses  averaging  to  prevent  false  blink  indications  under  noisy 
conditions.  The  averaging  is  adaptive  to  compensate  for  increasing  noise. 

The  blink  message  will  generally  be  printed  within  a  few  seconds  after  the 
initiation  of  the  blink  condition  at  the  transmitting  station  under  good  SNT 
conditions.  The  time  for  blink  detection  in  the  receiver  will  increase  as  the 
SNR  decreases . 


EXAMPLE:  001  10:02:10  1,X, BLINK  BGN 

PROBABLE  CAUSE: 

-  Designated  station  is  transmitting  blink  code. 

-  Continuous  Master  blink  on  and  off  messages  during  Master  blink  area 
due  to  insufficient  averaging.  This  can  be  corrected  by  increasing 
AVG  for  the  Master  Station. 

-  Excessive  link  blink  detection  times  may  be  decreased  by  decreasing 
AVG  for  that  station.  This  problem  usually  occurs  for  stations  with 
poor  SNR. 
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♦BUST* 

During  initial  phase  of  signal  acquisition,  the  receiver  is  doing  continuous 
signal  sampling  and  transferring  the  data  to  the  processor.  Insufficient 
processor  time  is  available  for  normal  teleprinter  I/O  so  the  BUSY  message  is 
transmitted. 

EXAMPLE: 


-  Enter  the  following: 

ACQ  1  cr 
ACQ  2  cr 

*BUSY*  The  processor  response. 

PROBABLE  CAUSE: 

-  Signal  acquistion  has  been  requested  within  the  last  20  seconds. 


3 


ET50/G 

10/29/80 


CODE  ERROR  BGN/CODE  ERROR  END 

The  amplitude  samples  for  each  station  are  algebraically  averaged  together  for 
each  station.  This  average  will  reach  unique  steady  state  values  for  the 
Master  station  and  the  Secondary  stations.  If  this  average  exceeds  some 
preset  limits,  a  CODE  ERROR  message  will  be  printed.  Generally,  more  tbm  one 
pulse  in  a  GRI  must  be  in  error  before  the  alarm  is  given. 

EXAMPLE: 

001  10:00:11  1,Y,C0DE  ERROR  BGN 

001  10:04:11  1,Y,C0DE  ERROR  END 

PROBABLE  CAUSE: 

-  High  noise  or  loss  of  signal  may  temporarily  set  off  the  alarm. 

Such  false  alarms  would  be  accompanied  by  abnormally  large  noise 
numbers . 

Error  in  transmitted  phase  code.  If  more  that  one  monitor  receiver 
prints  this  message,  the  offending  station  should  investigate  a  phase 
code  problem  by  observing  the  antenna  current  signals. 
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CYCLE  ERROR  BGN/ CYCLE  ERROR  END 

Presetable  tolerance  limits  can  be  placed  on  the  Cycle  number  calculation. 
When  the  calculated  cycle  number  exceeds  either  the  upper  or  lower  tolerance 
limit,  the  error  message  is  given. 

EXAMPLE: 


001 

10:11:00 

1,X, CYCLE 

ERROR 

BGN 

001 

10:11:50 

1,X,  CYCLE 

ERROR 

END 

PROBABLE  CAUSE: 

Transmitter  off-air  causing  the  cycle  number  to  drive  to  5.00.  This 
should  correct  itself  once  the  station  returns  on-air. 

The  transmitted  ECD  has  changed  or  changes  in  the  propagation  path 
have  caused  the  ECD  of  a  station  measured  at  the  monitor  site  to 
exceed  the  tolerance  limit. 

-  Incorrectly  set  CN  or  CD  command. 

Incorrectly  set  CYCR 
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ERROR 

Syntax  errors  in  data  typed  on  the  teleprinter  are  noted  by  the  ERROR  command. 
Generally,  this  is  due  to  a  missing  character  or  comma.  If  it  is  not  clear 
what  error  was  made,  the  command  dictionary  should  be  checked  to  verify  the 
proper  format  is  being  used.  The  carot  indicates  the  approximate  position  of 
the  error. 

EXAMPLE: 


ADD  1,52000  cr 
ERROR  A 


PROBABLE  CAUSE: 

Error  made  on  teleprinter  entry. 

-  Distortion  on  TTY  lines  or  TTY  "hits"  on  transmit  line. 
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GAIN  ERROR  BGN/GAIN  ERROR  END 

A  tolerance  window  can  be  placed  on  the  reciever  AGC  for  each  station.  If  the 
gain  increases  or  decreases  to  the  tolerance  limit  the  GAIN  ERROR  BGN  message 
will  be  printed  and  the  gain  will  be  clamped  at  this  limit. 

EXAMPLE: 


100 

00:09:55 

1 ,Y,GAIN  ERROR  BGN 

100 

00:11:59 

1 , Y , GAIN  ERROR  END 

PROBABLE  CAUSE: 

-  Station  off  air 

-  Incorrectly  set  GN  or  GD  command 

-  Secondary  station  blinking  with  GD  command  set  at  4  dB  or  less. 
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HIGH  NOISE  BGN/HIGN  NOISE  END 

If  the  noise  number  calculated  by  the  receiver  exceeds  4095,  then  the  NOISE 
BGN  error  message  is  printed.  The  HIGH  NOISE  END  message  is  printed  when  the 
calculated  noise  number  falls  back  below  3072.  The  noise  number  is  a  measure 
of  all  interference,  both  natural  and  man-made. 

EXAMPLE: 


099 

11:11:11 

1 ,M,HIGH  NOISE  BGN 

099 

11:59:00 

1 ,M,HIGH  NOISE  END 

PROBABLE  CAUSE: 

Station  off-air  and  no  gain  deviation  limits  set  in.  The  AGC  drives 
to  the  maximum  limit  under  these  conditions  and  the  background  noise 
sampled  by  the  receiver  is  thus  very  large. 

-  Very  large  increase  in  natural  or  man-made  noise.  This  would  be 
confirmed  by  an  increase  in  noise  numbers  on  all  stations  with  no 
change  in  station  gains. 
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HYPRB  ERROR  BGN/HYPRB  ERROR  END 

Tolerance  limits  for  the  measured  time  difference  can  be  preset  into  the 
computer.  When  a  tolerance  level  is  exceeded,  the  error  message  is  printed. 
The  station  PLL  continues  to  track  beyond  this  limit. 

EXAMPLE: 


100 

11:59:00 

1,X, HYPRB 

ERROR 

BGN 

100 

12:11:59 

1,X, HYPRB 

ERROR 

END 

PROBABLE  CAUSE: 

Secondary  station  jumped  time  if  a  message  is  printed  for  one  baseline. 
Master  station  jumped  time  if  a  message  is  printed  for  all  baselines. 

-  DD  or  DN  improperly  set. 
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♦PROTECTED* 

The  CDFO-5000  Monitor  Set  can  be  configured  to  operate  on  several  chains  with 
several  user  terminals.  To  prevent  confusion  and  inadvertent  modification  of 
another  users  parameters,  a  protocol  system  can  be  set-up  which  protects  each 
user's  parameters.  This  message  is  printed  when  an  unauthorized  user  tries  to 
modify  parameters  in  a  chain. 

EXAMPLE: 


CN  1,M,2.95  cr 
♦PROTECTED* 

(User  2  attempts  to  change  chain  1  cycle  nominal  for  master) 


PROBABLE  CAUSE: 

User  terminal  does  not  have  "write”  access.  Check  the  chain  designa¬ 
tion  in  the  command  to  verify  that  an  authorized  chain  number  has 
been  used. 

-  See  the  WTMK  and  MSTR  commands  in  the  Command  Dictionary  to  change 
the  "write"  authorization. 
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SKYWAVE  ERROR  BGH/SKYWAVE  ERROR  END 

A  "guard  strobe"  is  used  to  sample  signals  -37.5  usee  in  front  of  the  signal 
tracking  point.  Under  normal  conditions  there  is  no  coheramtfcRE  at  the  guard 
strobe  point.  If  the  reciever  is  tracking  high  on  the  pulse,  then  this  alarm 
will  be  printed.  Man-made  communications  signals  which  are  coherent  with  the 
Loran-C  signal  can  cause  this  same  indication.  Occurrences  of  this  type  of 
interference  are  rare. 

EXAMPLE: 


111 

11:00:11 

1,X, SKYWAVE 

ERROR 

BGN 

111 

11:11:11 

1,X, SKYWAVE 

ERROR 

END 

PROBABLE  CAUSE: 

-  Receiver  tracking  too  high  on  the  pulse.  Check  the  cycle  number  and 
CYCR  to  determine  if  this  is  the  cause. 

-  Synchronous  or  near-synchronous  RFI  contaminating  the  signal. 

-  Temporary  large  noise  burst.  To  verify,  check  noise  numbers  for 
abnormally  high  value. 
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RETRY  BGN /RETRY  FAIL 

If  the  receiver  fails  to  find  a  satisfactory  sample  point  in  the  "AC"  mode 
during  signal  acquisition,  it  will  return  to  the  front-of-pulse  search  and 
print  a  RETRY  BEGIN  message.  If  the  acquisition  fails  the  second  time,  the 
station  is  placed  in  the  "K"  (killed)  mode. 

EXAMPLE: 


222 

22:23:00 

1,Z, RETRY  BGN 

222 

22:23:59 

1,Z, RETRY  FAIL 

PROBABLE  CAUSE: 

Envelope  correction  factor  "CYCR"  set  so  that  the  measured  cycle 
numbers  are  near  the  indecision  points  of  2.5  and  3.5.  Change  the 
CYCR  to  correct  this  condition. 
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APPENDIX  C 


TOPAZ  MODIFICATIONS 


► 


TOPAZ  ISOLATION  TRANSFORMER  MODIFICATION 


The  following  is  a  Drief  description  of  the  modification  made  to  the  TOPA4 
ultra-isolation  transformer: 

1 .  Identification  Of  Modification: 

a.  4"  x  4“  x  3"  electrical  connection  oox  with  unground  receptacle 
mounted  on  output  end  of  TOPAZ. 

2.  Material  Requireo  For  Each  Modification: 


a. 

Electrical  box,  4"  x  4"  x  2-1/8"  (or  deeper) 

1 

each 

b. 

2-pole,  3-wiring  ground  receptacle,  20A,  12SV 

1 

each 

c. 

Cover,  electrical  dox,  single 

outlet,  4"  x  4"  x 

1/2" 

1 

each 

d. 

Cap,  motor  run,  4mf/375V 

1 

each 

e. 

Pipe  nipple,  3/4"  x  1-1/2" 

1 

eacn 

f. 

Locxnut,  3/4" 

1 

each 

g. 

Bushing,  3/4“ 

l 

each 

h . 

#12  AWG  copper  wire,  1  BLK,  1 

WHT,  1  GRN 

18“  eacn 

i . 

Terminal  lugs 

a 

eacn 

J. 

Conduit  clamp,  1-1/2" 

1 

each 

k. 

1/4"  x  20"  x  3/4"  machine  screw  ana  nut  ana  lock 

wasner 

2 

eacn 

1. 

#8-32  machine  screws,  1" 

2 

eacn 

3.  .  Proceaure: 

a.  Remove  cover  from  output  end  of  TOPAZ. 

0.  Remove  lower  (larger)  knock-out  from  end  cell  on  rignt-nano  side  as 
you  face  transformer  from  output  end. 

c.  Note  which  3/4"  knock-out  on  electrical  oox  most  nearly  lines  up 
with  TOPAZ  knock-out.  Remove  it  and  enlarge  it  witn  1"  Greenlee 
punch. 

d.  Fasten  the  electrical  box  to  the  TOPAZ  end  bell  using  the  pipe 
nipple,  lock  nuts,  and  bushing. 

e.  Using  1/4"  bit  and  hard  drill,  drill  through  the  electrical  box  ana 
end  Dell  of  TOPAZ  as  shown  in  accompanying  drawing.  Hola  the  clamp 
and  capacitor  in  place  to  mark  location  of  hole.  NOTE  that  cap  must 
be  mounted  in  upright  position  and  clamp  must  engage  lip  of  capacr- 
tor  can  to  prevent  possibility  of  electric  connections  on  capacitor 
making  contact  with  electrical  dox  due  to  vibrations  during  shipment 
and  use. 

f.  Solder  a  6"  piece  of  black  #12  wire  to  the  terminal  on  the  capacitor 
marked  with  the  dot,  ana  a  6"  piece  of  white  #12  to  the  other. 

Mount  the  capacitor  as  shown  and  instal I  terminal  lugs  on  the  free 
ends.  Connect  these  wires  to  the  top  pair  of  connections  on  the 
receptacle  (black  to  brass  terminal,  white  to  silver  terminal). 

g.  Install  terminal  lugs  on  Doth  ends  of  a  black,  wnite,  ana  green  lu" 
to  12"  piece  of  #12  AWG  wire.  Connect  the  black  from  X1-X3  on  the 
TOPAZ  to  the  brass  connection  on  the  receptacle.  Connect  the  white 
from  X2-X4  of  the  TOPAZ  to  the  silver  connection  on  the  receptacle. 
Connect  the  green  from  the  chassis  connection  of  the  TOPAZ  to  the 
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ground  connection  on  the  receptacle.  (If  XI  is  not  jumperea  to  X3 
ana  X2  is  not  jumpered  to  X4,  ao  so  now.) 

h.  Mount  receptacle  to  cover,  cover  to  oox,  replace  ena  Dell. 

i.  Open  input  ena  of  TOPAZ  and  make  sure  Hi  is  jumperea  to  H3  ana  tnat 
H2  is  jumperea  to  H4.  If  not,  ao  so  now. 

j.  Modification  is  complete. 

A I i  material  procurea  locally. 
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FIGURE  C-2  UPS  MONITOR  PANEL  FIELD  CHANGE 
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SURVEY"  PROGRAM  LISTING 


id 

2d 

30 

40 

50 

00 

70 

00 

90 

100 

no 

120 

130 

140 

ISO 

100 

170 

100 

190 

200 

210 

220 

fk 

230 

240 

250 

200 

0) 

270 

230 

290 

300 

310 

320 

330 

340 

350 

300 

370 

330 

390 

400 

410 

420 

430 

440 

450 

400 

470 

480 

490 

500 

510 

520 

530 

540 

550 

500 

570 

530 

590 

800 

010 

020 

•- 

030 


!  "SURVEY" 

!  ORIGINAL  CRScD  05/01/31)  “DOCUMENTATION  TAPE" 

!  ■*■*■»*•*•*  *******i>'4«<?9Hfr$'*  4  **-*  ■* 

!  *  AUSTRON  5O0O  DATA  COLLECTION  PROGRAM  USING  UPDATED  * 

!  *  REPORTS  CONTROLLED  BY  H/P  9345B.  * 

!  *  PROGRAM  COMMENCED  1/22-79  * 

!  *  LAST  MODIFICATION  04/09/31  by  ETCS  Thomas  J.  Mi  In*  * 

!  *  ORIGINAL  PROGRAM  DEVELOPED  BY:  * 

>  *  LCBR  ANDREW  J.  SEDLOCK  <G-DST-1)  * 

!  ♦  CW02  JAMES  P.  LEWICKI  OJSCG  R4.D  CTR)  * 

!  *  ETCS  THOMAS  J.  MILNE  CUSCG  R3.D  CTR>  * 

!  *  THIS  PROGRAM  DESIGNED  FOR  9S0O  BAUD, WITH  REPORTS  * 

!  *  UPDATED  AS  FAST  AS  EVERY  <12)  SECONDS  * 

!  *  EFFECTIVE  1  MAY  1931,  THIS  IS  THE  ONLY  VERSION  OF  * 

!  *  SOFTWARE  IN  USE  WITH  THE  <TDSS>  SURVEY, AND  MAY  NOT  * 

!  *  BE  MODIFIED  IN  ANY  WAY  WITHOUT  THE  SPECIFIC  WRITTEN  * 

!  *  PERMISSION  OF  THE  U3CG  RESEARCH  AND  DEVELOPMENT  * 

!  *  CENTER.  * 

!  ****************#**+#***#**#*#*#*************#■*•**##******•* 

OPTION  BASE  1 

MASS  STORAGE  IS  “:T15" 

COM  Buf  *C 159  ] ,  Cursor ,  Dcom#C5803 ,  S*  1  _code,  Kbd,  Dat  a,  Dat  i_co  1  !  *c  t ,  Simp  1  * ,  5* t ,  3 

D I M  A*  C  200  3 , B*  C 500  3 , C*C 1 00  3 , A 1 < 1 OO ) , A2< 1 00 ) , A3  < 1 OO  > , A4  < 1 OO ) , B 1 < 1 00  > 

DIM  B2 < 1 OO ) , B3 < 1 OO > . B4< 1 OO ) , C 1 < 1 00 ) , C2 < l O0 > , C3 < 1 00 > , C4 < 1 0O ) , Td < © ) 

DIM  D 1  <  100)  ,  D2<  100  >  ,  D3<  100)  ,  D4<  100)  ,  Std_dev<4>  ,  3 1  op<4)  ,  St  at  a  <  4 , 4  ) ,  CovO, 

DIM  T 1  *  <  1 00  )  ,  T2*  <  1 00  )  ,  T3*<  1  OO  )  ,  T4*  <  1 00  )  7$u»*  <3, 4),  St  at  <  3 , 4 ) , Peg  <  4 , 4  >  ,  0_a  t  < 


DIM  S<4, 6) ,R<3, S>, At#U©> ,2<2) ,Zo<2) , Bug* < 33) 

DIM  E 1  <  1 00) , E2< 100) , E3< 100 ) , E4< 100) , F l < 100 ) , F2< 10O) , F3< 100) , F4< 1 00 ) 

DIM  Ref<10,2),Ref*<18> 

INTEGER  Sampl *_per  i  od 
Bug_c  om*0 
Bug  count *1 
IF  Sf  k  =  1  THEN-  350 
LOAD  KEY  “SFK" 

Sf  k  *  1 

GOSUB  Keys 
Cursor*l 

S*l_code*l0  ! 

Bata_col lect*0  ! 

Data*0  \ 

Dp*0  ! 

Set  *  1  ! 

3ample*0  ! 

Stp*0  ! 

Pause=0  ! 

Mrs*0  ! 

CALL  Dcom_s*tup<Err> 

IF  Err  THEN  Dcom_*rr 

TOPEN  Sel_cod#,15  CALL  Dcom_i*r!  OPEN  COMMS  CHANNEL  WITH  AUSTRON 
CONTROL  MASK  9;  123  !  initial  is**  th*  r*al  tin**  clock  for  interrupt* 
OUTPUT  9; " A, U2*02" 

OISP  "RUNNING" 

Loop:  l 

IF  Bug_com*l  THEN  CALL  BebugCA*, Sug*<*) , Bug_com, Bug_count > 

IF  Bug_com*0  THEN  5S0  !  patch**  *nd  flag 

Bug_count*3ug_countf l  !  count*  commands  **nt  to  AUSTRON 

Co«and*l  !  i*t*  transmit  command  flag 

IF  NOT  Kbd  AND  FNKbd_r*ady  THEN  Offjcbd 
R*c« i v*: ! 

IF  NOT  FNDc_r*ady  THEN  Transmit'  Ch*ck  for  CP  or  30H  in  DCOM* 

CALL  G*t_dat *<B», Prompt )  !  G«t  message  and  m«**ag*  type 

ON  Promp”  GOTO  Msg, R«c* t v«, R«c • i u*  !  If  prompt*!  th*n  th*  data  i*  a 


RS232CCEIA)  s*l*ct  cod* 

flag  indicating  data  coll*ction  ha*  been  smarted 

data_coll  k*y  check  flag 

compl*t*  message  <r*port)  check  flag 

increments  the  10O  sample  set  counter 

sample  counter 

atop  flag 

pause  flag 

mini -ranger  us*  flag 

! SETUP  RS  232C 
1I/Q  ERROR  30  STOP 


t  *  1 


*  typ*  message;  2,  atm  p  chart  message; 


640  !  3,  i  ncomp  1  et  *  strip  chart  message 

630  Msg:  t 

660  IF  NOT  Data_co1!ect  THEN  Print  !  If  not  in  DATA  COLLECT  mods  than 

670  1  print  message 

680  IF  8**“RPRT 1  “  THEN  610 

690  !  samp  1 ss,  than  print  msg 

700  IF  <Dp*0>  AND  <Pause*0  THEN  Ptert!  If  in  PAUSE  mods  print  msg  on  or* 

710  IF  BS  C  1 7 ;  5  ]  * " CHA I N "  THEN  Data  !  Check  for  first  line  of  RPRT  msg 

720  IF  Dp >0  THEN  Data  !  Procsss  data  samp  1  a 

730  GOTO  Print 

740  Transmit:  ! 

750  IF  FNKbd_rsady  AND  Kbd  THEN  Xmitl  !  Check  for  STORE, CONI, EXECUTE  or  irt 

4  i  n 


760  1  teletype  mode 

770  IF  NOT  Comand  THEN  370  !  Check  for  Austron  command  in 

790  Comand*8  !  calculator  mode 

790  GOTO  Xmit 

900  Xmitl:  CALL  Get_line'A#>  !  Get  «3g  from  keyboard  buffer 

310  Cursor* 1 

320  Xmit: FOR  I “ 1  TO  L£N<A4)  !  Transmit  message  to  Austron 

330  OUTPUT  3e 1  code  USING  “4, K" ; A*C I , II 

840  WAIT  60 

830  NEXT  I 

360  OUTPUT  Sel  code  USING  " 4 , K“ ; CHR*< 1 3 ) 

370  IF  NOT  <  St  p  AND  <Dp*0)>  THEN  Loop 

880  GOSUB  Summary 

390  Ptcrt : ! 

900  PRINTER  IS  16 

910  Print:  ! 

920  IF  3ug_com= 1  THEN  PRINTER  IS  0 
930  PRINT  B* 

940  B**“" 

930  IF  FNDc_ready  THEN  6lQ 

960  ~  GOTO  Transmit 

970  Data:  !  STRIP  DATA  FROM  REPORT  MESSAGE 

980  Op*Dp-*-l  !  Increment  data  pointer 

990  IF  Dp*l  THEN  Time  !  If  first  line  of  msg  get  time 

1000  IF  0p*2  THEN  Master  !  If  second  line  of  msg  check  ma 

1010  Td<Dp-2)-VAL<B*C32]>  !  Strip  off  the  TD  from  msg  line 

1020  8**"" 

1030  IF  Dp<6  THEN  610  !  Haw*  you  received  all  <3>  msg 

1040  Dp*0  !  If  yes  reset  msg  pointer  then 

1030  GOTO  Process 

1060  Master:  ! 

1070  IF  8*C5, 5 J< >"T"  THEN  Errorl  !  Check  if  master  is  in  tra 

1080  B*»“" 

1090  GOTO  610 

t 100  Errorl : ! 

U10  BEEP 

1120  DISP  "MASTER  NOT  IN  TRACK  !!!!!!!*  “ 

1130  Dp*0 

1140  GOTO  Receive 

1130  Ti me: ! 

1160  Ti me**8*C3, 14]  !  Strip  time  off  first  line  of 

1170  B**"" 

1180  GOTO  610 

1 190  Process: ! 

1200  Store:  !  This  routine  stores  TD's  in  data  arrays 

1210  Samp  I e*Samp 1 e* l  1  This  increments  the  sample  counter 

1220  IF  Data  co11«ct»l  THEN  PRINTER  IS  3 

1230  IF  SampTe>l  THEN  1380 

1240  PRINT  L I N <  l  > ; " _ 


!  Increment  data  pointer 
!  If  first  line  of  msg  get  time 
!  If  second  line  of  msg  check  master  track 
!  Strip  off  the  TD  from  msg  line 

!  Have  you  received  all  (3>  msg  lines 
!  If  yes  reset  msg  pointer  then  process  data 


!  Check  if  master  is  in  track 


!  Strip  time  off  first  line  of  msg 


1230  PRINT  LIN<2> ;  TABU  ),  "SAMPLE"  ;  TAB<  1 1)  ,  “U";TAB<21>  ,  "X";  TAB C  3  l  >  ,  "  Y"  ;  TAB'-  4  1 

),"2";TAB<31>;  "Set";TAB<36>;  "Rl "  ;  TA3(,63>  J  "R2"  ;  TAB<  70> ;  "Time" 

1260  IF  Mrs*!  THEN  1230 


1279  PRINT  LIN<  l  )  ;  TA3<  12) ,  “  <  A"  ;  TAB(20>  .  “B"  ;  TAB<25,  ,  "C  > * ”  ;  TAB  >•  3 l > , " t  rt+B+C  >  “ 
;TA8<45); "X  ✓ “ ; TAB<  59 > ; “Y"; TAB (64) ; "AT  ✓  “ ; TAB<70> ;  "CT" 

1280  PRINT  HN<2>  ;  TAB(53>  ;  “St  art  T i  me" ;  TABC64)  ;  T i  n«l 

1290  PRINT  HN< 1 > 

1380  IF  Simp! *<480  THEN  1320 

1310  COSUB  Stop 

1320  STANDARD 
1330  PRINT  Sample; 

1340  FIXED  2 

1 350  PRINT  TAB <  1 9 >  ;  Td <  1  >  ;  TAB < 20 ;■ ;  Td< 2)  ;  TAB< 30 )  ;  Td < 3 >  ;  TAB < 48 > ;  Td < 4 ) ; 

1360  STANDARD 

1370  IF  3  amp  1  */ (Set  *  1 99  )  >  1.  THEN  Set=3et+1  !  I  ncrement  s  set  counter  euerv 

1388  PRINT  TRB<5i>;S*t;Rt;R2;Tiifie*C4;9] 

1390  ON  S*t  GOTO  On# , Two, Three , Four  !  hundred  samples 

1480  On# : A1 < Samp  1 *) *Td< 1 ) 

1410  Bt<Samp!e>»Td<2) 

1420  Cl < Samp  I e)*Td<3 ) 

1430  Dl (Sampl *>»Td<4> 

1440  El  (Samp  1  e )  =»P1 

1450  FI (Sampl *>*R2 

1460  T 1  *<  Samp  1  *>  =T  t  rue* 

1470  GOTO  Position 

1480  Two:  A2( Sampl  e- 190)  =»Td(  1  ) 

1490  B2(Sample-190>=Td<2) 

1500  C2(Sampl *-190)=Td<3> 

1510  D2(Sampl*-100)*Td<4) 

1520  E2<3ample-t09)*Rl 

1530  F2<Sampl*-190>=R2 

1540  T2*(Samp1 e-199)=Ti me* 

1550  GOTO  Position 

1560  Three : A3<  Samp  1 e-298  > *Td( 1 > 

1570  83<Samp1e-200>*Td<2> 

1530  C3<Sample-200>*Td<3> 

1590  03 (Sampl e-200)*Td(4) 

1600  E3(Sampl *-289>»Rl 

1610  F3<3ampl*-200)=R2 

1620  T3*<Samp 1 *-200) *T i me* 

1630  GOTO  Position 

1 640  Four : A4( Samp  1 e-390)*Td( 1 ) 

1650  B4(3ample-300)*Td<2> 

1660  C4(Sampl *-300>*Td<3> 

1670  D4($amp 1 e-390) *Td< 4 > 

1680  E4<3amp I #-300>aRl 

1690  F4($ampl *-309)«R2 

1700  T4*(Sampl  e-300)=*Ti  me* 

1710  Position.*!  CALCULATE  POSITION  FROM  MRS  DATA 

1720  IF  Mrs*l  THEN  1890!  TD  only  skip  position  calculations 

1730  FIXED  1 

1740  Ra«R*1008 

1750  Rb«R2 

1760  Rc-Rl 

1770  IF  NOT  Tp  THEN  Rb*R 1 

1780  IF  NOT  Tp  THEN  Rc*R2 

1790  CALL  Tri angl *<Ra, Rb,Rc , A,  B,  C> 

1800  CALL  Posit i on<Zo<*) , A1 pha, Rc/1000, Si gn, B, Z(*>  > 

1810  IF  PtSO'^Y"  THEN  1370 

1828  IF  Plott<>2  THEN  1370 

1830  X*Z( 1 ) -X 1 

1840  Y«Z<  2) -Y 1 

1850  At »X*SIN( Course )*Y*COS (Course) 

I860  Ct*X»C0S< Course )-Y*3 I N(Course) 

1870  Td< l >»Z( l ) 

1880  Td(4)«Z<2) 

1890  Stat:  CALL  St < Td<*> , Samp  1 e, St at s< *) , Co*>( *) , O^set ( *) ) ! Cal cul  at *  statistics 
1900  Regress:  CALL  Reg<Stats<*>,Cov(*>,S(*>,R(#>,0_*et<*>> (calculate  regression 
1910  IF  Mrs*l  THEN  1940  (coefficient 


1920  FIXED  3 

1930  print  tab < 2 ) ;  “  <  ” ;  a;  B ; C; "  >  “ ;  ;  r+b*C;  spa<2>  ;  z<  l  > ;  -v ;  z<2> ;  SPA<2> ;  At ;  :  ct 

, LIN( 1 ) 

1940  IF  Stp  THEN  Dat i_co 11 ac t *0 
1950  IF  Pausa  THEN  Transmit 

1960  IF  PtSO"Y*  THEN  Transmit  !  Chack  it'  plot  is  dasirad 

1970  !  Plot  data 

1930  IF  Mrs* 1  THEN  2003 

1990  ON  Plott  GOTO  2000,2040,2029 

2000  CALL  0 i sp  run<  Td<*) , Samp  I  a , Xmn , Xmx , Ymn, Ymx , Mp , Xaxas , V  axas , Prx, Pry , Cb a, Lcb , 
Cbb,Cbc,Lcb2,Lcb3, Stp,R<*)> 

2010  GOTO  2050 

2020  CALL  Plot  xyCSampla.Wp  x,  l*lp_o,  2<  ,  Op_r  > 

2030  GOTO  2050 

2040  CALL  PI ot_ct <Ct , At , Rdi st , Samp! a) 

2050  GOTO  Transmit 

2060  Kays: !  SETS  UP  THE  SFK'S 


2070 

ON 

KEY 

#13 

GOSUB 

Acql 

2080 

ON 

KEY 

#19 

GOSUB 

Rprt  1 

2090 

ON 

KEY 

#20 

GOSUB 

Tmcn 

2100 

ON 

KEY 

#3 

GOSUB 

0n_kbd 

2110 

ON 

KEY 

#9 

GOSUB 

Pius* 

2120 

ON 

KEY 

•  10 

GOSUB 

Cont i nu« 

2130 

ON 

KEY 

#21 

GOSUB 

Dat a_co 1 1 

2140 

ON 

KEY 

#25 

GOSUB 

Start 

2150 

ON 

KEY 

#26 

GOSUB 

Stop 

2160 

ON 

KEY 

#23 

GOSUB 

Stats 

2170 

ON 

KEY 

#29 

GOSUB 

3  i  gn 

2180 

ON 

KEY 

#27 

GOSUB 

Dabug 

2190  RETURN 
2200  Acqi:  ! 

2210  IF  Data  coll  act  THEN  RETURN 
2220  AS*“ACqT" 

2230  ~  Comand*l 
2240  RETURN 
2250  ! 

2260  Rpr 1 1 :  • 

2270  IF  Data  collact  THEN  RETURN 
2280  A*-"RPRT1" 

2290  Comand*t 
2300  RETURN 
2310  Tien: ! 

2320  INPUT  "INPUT  THE  TMCN  YOU  DESIRE  ?",T» 

2330  A*»"TMCN1  ,M,  ,,S.VAL*<Tm)S,CHR*(  141  TMCN l  ,14,  H  &VALS <  Tm >  &CHR4  f  1 4 1  > 3, "  TMCN  1 ,  " 

tVAL#<Tm)S.CHRS<  14 m "TMCN  1 ,  Y ,  "«.VAL*<  Tm  > &CHRS  1 1 4 1  >  i  "  TMCN  1 ,  Z ,  ”S.VAL*<  Tm) 


2340 

Com*nd*l 

2350 

RETURN 

2360 

Sign: ! 

2370 

Si gn*-l*Si gn 

2380 

PRINT  "SIGN*" ;Si gn 

2390 

RETURN 

2400 

On  kbd:  ! 

SETS  KEYBOARD  IN  TELETYPE  MODE 

2410 

ON  KBD  CALL  Kbd  i sr  ! 

ON  KBD  sat  sup  an  intarrupt  condi t i on, and 

ac  t  i  '■>  at  i  s 

2420 

DISP  "TELETYPE  ON"  ! 

a  charactar  buffar<KBDS>  which  storas  data  from 

2430 

RETURN  ! 

tha  kays  prassad. 

2440 

Off_kbd: ! 

RETURN  KEYBOARD  TO  CALCULATOR 

MODE 

2450 

Cursor*! 

2460 

OFF  KBD 

2470 

AS*"  » 

2480 

DISP  "TELETYPE  OFF" 

2490 

GOTO  Loop 

2500 

Data  col!:! 

INITIALIZE  DATA  COLLECTION 

2510 

MASS  STORAGE  IS  ":T15" 

2520 

OFF  INT  #9 

2530 

DEG 

2540 

IF  Data_col 1  act  THEN 

Imc  1  Impropar  command  if  airaady 

i  n 

*  Impropar  command  if  airaady  in 


2550 

!  data  collect  mode 

2580 

S  i  gn 

*1 

2370 

D  it  4 

*1 

2580 

Simp 

1  e*0 

2390 

Set  * 

1 

2600 

Mrs* 

0 

2610 

R 1  *0 

2620 

R2*0 

2630 

RESTORE  2630 

2640 

READ 

Range  1, Range  2 

2630 

DATA 

114, lie 

2660 

MAT 

A1*ZER  !  Zero  data  arrays 

2670 

MAT 

B1=ZER 

2680 

MAT 

Cl-ZER 

2690 

MAT 

D1*ZER 

2700 

MAT 

El*ZER 

2710 

MAT 

F1*ZER 

2720 

MAT 

A2*ZER 

2730 

MAT 

B2*ZER 

2740 

MAT 

C2*ZER 

2730 

MAT 

D2*ZER 

2760 

MAT 

E2*ZER 

2770 

MAT 

F2*ZER 

2780 

MAT 

A3*ZER 

2790 

MAT 

B3*ZER 

2880 

MAT 

C3-ZER 

2310 

MAT 

D3=ZER 

2820 

MAT 

E3*ZER 

2330 

MAT 

F3*ZER 

2340 

MAT 

A4-ZER 

2850 

MAT 

B4*ZER 

2860 

MAT 

C4*2ER 

2870 

MAT 

D4*ZER 

2830 

MAT 

E4*ZER 

2990 

MAT 

F4=ZER 

2900 

PRINTER  IS  16 

2910 

PRINT  "Recommended  sample  periods  ' " 

2920 

PRINT  TAB<3> "Samp!  e  per  i  od*<TMCN*2)/'l0  “ 

2930 

PRINT  TAB<5) ; "Mi ni ni mum  sample  peri od*!2sec " 

2940 

PRINT  TAB<6>; "TMCN" ; TAB<27) ; "Sample  period" 

2950 

PRINT  LIN<  1>  ;  TAB<S>  *,  "25  mi  ni  mum"  ;  TAB<27>  J  "  12"  ,  TAB<6>  J 

AB<6) ; 

"i00": 

;TAB<27>; "20“ 

2960 

INPUT  “ Input  the  sample  period<sec>  you  desire  ?,then 

i  od 

50" ; TA£<2?> ; "  12" , T 
CONT"  ,  Simp  1  e_per 


2970  IP  Sample  period<12  THEN  Simple  period*12 
2980  STANDARD 

2990  PRINTER  IS  0 

3000  PRINT  "The  Simple  period*one  sampte  every “ ; Simp  1 e_per i od; "Sec “ 

3010  P**VAL*<1000*Sampte_period)  IThis  sets  the  clock**time  in  millisec 

3020  INPUT  "fire  you  going  to  use  MR3III  ?,  Y*YE3, N*NO" , Mrs* 

3030  IF  Mrs*<  >“Y*  THEN  Mrs*l 
3040  IF  Mrs  THEN  3300 
3090  PRINTER  IS  0 

3080  INPUT  "Input  the  reference  stition  file  name?",Rf* 

3070  PRINT  "REFERENCE  STATION  FILE  *:"*,Rf* 

3080  ASSIGN  »L  TO  Rf* 

3090  READ  •l;Ref*<*),Ref(*> 

3100  PRINT  "REFERENCE  STATIONS:1' 

3110  PRINT  TABc5);“B":TAB<S);Ref*<l>;TAB<38>;Ref<l, 1 ); TABC 53> ; Ref <1 , 

3120  PRINT  TA8<3>: "C" : TAB<3> ; Ref *<2> ; TAB<38) ; Ref <2, 1 > ; TAB v 55) j Ref <2, 

3130  PRINT  "LOCAL  GRID  ORIGON:" 

3140  PRINT  TAB<3>  ;  Ref  *<  3  >  TABC38) ;  Ref  <3,  1  > ;  TAB<35> ;  Ref 3, 2> 

3130  2o< 1 >*Ref < 1, 1 >-Ref <3, 1) 

3180  Zo<2>*Ref < l , 2) -Ref <3, 2) 

3170  2c  < 1 )*Ref t2, l >-Ref <  3, 1 > 

3180  2c<2)»Ref <2, 2 > -Ref <3, 2> 


M  I') 


319©  R*3QR  <  <  Zc  <1 > -Zo<l >  >  ''2*<  Zc  < 2> -Zo < 2>  >-2> 

320©  A1  pha*ATN<.  <Zc  <  1  >-Zo<  1  >  '>  /  <  Zc  <  2) -Zo<  2  >  >  ) 

3210  tF  Zc<2)-Zo<2><0  THEN  A I 1 pha+ 130 

3220  IF  ft! pha<0  THEN  A1 pha*Al pha+360 

3230  PRINT  “RANGE  BETWEEN  STATIONS*" ; R, "ANGLE*" ; A1 pha 
3240  INPUT  "Input  location  of  transponder  41,  B  OR  C  ?“ .  Tp* 

3230  IF  <TpS*"B" >  OR  <Tp**“C“>  THEN  3270 

3200  GOTO  3240 

3270  IF  Tp**“B"  THEN  Tp*l 

3230  IF  TpS*“C“  THEN  Tp*0 

3290  INPUT  “Enter  approximate  ranges  to  transponders  #1  &  #2,  in  K i  1  omet er > 

3KPI)  “  ,  Rf  1 ,  Rf  2 

3300  INPUT  "Do  you  want  a  graphics  plot  ? , Y*Yes, N=No“ , Pt S 
3310  IF  Pt  S<  > '* Y"  THEN  3300 

3320  IF  Mrs  THEN  3320  !  INITIALIZE  TD  GRAPHICS 

3330  INPUT  "Input  type  of  plot  des  i  red,  TD*  I ,  CROSS-' ALONG  TRACK-2, OR  XY*3  ? 

“.Plott 

3340  ON  Plott  GOTO  3329,3330,3490 

3330  INPUT  “Input  the  co-ordinates  of  the  starting  po i nt , K i 1 omet ers  East.N 

orth  ?*  X ,  Y  "  ,  X 1 ,  Y 1 

3360  INPUT  “input  the  co-ordinates  of  the  stopping  po i nt , K i 1 omet ers  East.N 

orth  ?*  X,Y",X2,Y2 

3370  Du*Y2-Y 1 

3330  Dx*X2-Xl 

3390  Rdi  st*SQR<Dy''2+Dx''2> 

3400  Course*ATN<  DxxDy > 

3410  IF  Dy<0  THEN  Course=Course+130 

3420  IF  Course<9  THEN  Course*Course+369 

3430  FIXED  1 

3440  PRINT  “FROM  POINT  1  TO  POINT  2,  COURSE*" ;  Course ; “ ,  RANGE*" ; fid  7 st 

3430  PRINT  "STARTING  POINT"; XI, Y1 

3460  PRINT  "END  P0INT“;X2,Y2 

3470  GOTO  3530!  INITIALIZE  CT.AT  GRAPH 

3480  STANDARD 

3490  INPUT  “Input  the  waypoint  coordinates,  Kilometers  East, North  ?*  X,Y“ ,Up_ 

x,Wp_y 

3300  INPUT  "Input  the  operating  range  about  the  waypoint  in  Kilometers  ?",0p_ 


3310  GOTO  3368!  INITIALIZE  XY  PLOT 

3320  CALL  Graf  <Xmn,  Xmx,  Ymn,  Ymx,  Mp,  Xaxes,  Yaxes  ,  Prx  ,  Pry  )  !  Initialize  graphics 
3330  CALL  D i sp_run<  Td<*) , S amp  1 e , Xmn , Xmx, Ymn , Ymx, Mp, Xaxes , Yaxes , Prx, Pry , Cba, Lcb 
, Cbb, Cbc,Lcb2,Lcb3,Stp,R<*>> 

3340  GOTO  3600 

3350  IF  C  t  J  *  “  Y  "  THEN  3330 

3360  CALL  Plot  xy<Sample,Up  x,Wp  y,Z<*>,0p  r> 

3370  GOTO  3600 

3330  CALL  Plot  ct <Ct , At , Rdi st , Samp  1 e> 

3390  PRINTER  Is  0 

3600  PRINT  "HIT  STRT  WHEH  READY" 

3610  RETURN 

3620  I»c:  DISP  -IMPROPER  COMMAND t I me >! “ 

3630  RETURN 

3640  Start:!  START  COMMAND 

3630  IF  NOT  Data  THEN  Ic 

3660  IF  Data  collect  THEN  Ic 

3670  ON  I NT  49  GOTO  Rtc 

3630  CONTROL  MASK  9; 123 

3690  CARD  ENABLE  9 

3700  OUTPUT  9;  "U2H,  U2P"S<P*V'  U2G“ 

3710  Data  collect*i 

3720  PRINTER  IS  16 

3730  PRINT  PAGE 

3740  PRINTER  IS  3 

3730  RETURN 

3760  Ic:  DISP  "IMPROPER  COMMAND < Ic  >  ! " 

3770  RETURN 


STOP  COMMAND 


3788  Stop:  ! 

3790  IF  NOT  Bat -4  collect  THEN  Ic 

3800  OFF  INT  #9 

3810  Stp«l 

3820  RETURN 

3830  Rtc:  ! 

3840  BEEP 
38S0  Dp  =  0 

3360  SET  TIMEOUT  4;3099 
3870  ON  INT  #4  GOTO  Timeout 
3880  IF  Mrs*  1  THEN  3990 
3890  WRITE  BIN  2;0 

3900  WRITE  BIN  2; Rang*  1 

3910  ENTER  4;Rl,Ct 
3920  WRITE  BIN  2:9 
3930  WRITE  BIN  2; Range  2 
3940  ENTER  4;R2,C2 
3950  IF  ABS<R1-Rt' 1*1909)  >1998  THEN  Range_error 
3969  IF  RBStR2-Rt'2*lO90)  >1009  THEN  Range  error 

3979  Rfl*R 1/1099 

3980  Rf2=R2- 1090 
3990  AS* " RPRT  1  “ 

4000  Comand3l 
4010  CARD  ENABLE  9 
4020  GOTO  Transmit 

4030  Timeout:  PRINT  "Timeout  ERROR" 

4040  GOTO  4019 

4050  Range_error:  PRINT  "RANGE  ERROR" 

4060  GOTO  4910 
4070  ! 

4980  Summary: ! 

4090  PRINTER  IS  9 

4100  PRINT  TAB<51 ) ;  “Stop  t  i  me"  ;  TAB<62)  ;  Ti  met 
4110  IF  Pt #< > “ Y“  THEN  4150 
4120  PRINT  LIN<5) 

4130  DUMP  GRAPHICS 

4140  EXIT  GRAPHICS 

4150  CALL  Pstats<Stats<*),0_3et<*),Cou<*),R<*>, Sample) 

4168  0ata*8 

4170  K i 1 1 30 

4180  Stp*9 

4190  Data_coll ect*0 

4200  Plot*9 

4219  Pause*9 

4220  INPUT  "DO  YOU  WANT  TO  STORE  DATA  ON  TAPE’’  Y  OR  N",Fi1eS 

4230  IF  Fi I eS»" Y"  THEN  4269 

4240  DISP  "RUNNING" 

4230  RETURN 

4260  DISP  "IF  YOU  HAVE  DATA  STORAGE  TAPE  IN  :T14  THEN  -  CONT  “ 

4270  PAUSE 

4280  GOSUB  Create 

4290  DISP  “RUNNING" 

4300  RETURN 

4310  Dco*_err:  ! 

4320  DlSP  "Iv'O  ERROR,  OVERLOAD,  HIT  CONT  " 

4330  STOP 

4340  Pause:!  Pauses  data  collection 

4330  IF  NOT  Data_collect  THEN  Err 

4360  Pause*l 

4370  EXIT  GRAPHICS 

4380  PRINTER  IS  16 

4390  PRINT  "YOU  ARE  AT  A  PAUSE" 

4400  RETURN 

4410  Err:  ! 

4420  DISP  “IMPROPER  COMMAND!!!!!!" 

4430  RETURN 


4440  Continue1  Starts  the  data  coll  action  again 

4450  IF  HOT  Pause  THEN  £r 

4460  Pause  =0 

4470  IF  Plot*©  THEN  dear 

4430  GRAPHICS 

4430  RETURN 

4500  Cl  ear: PR  INTER  IS  IS 

451©  PRINT  PAGE 

4520  RETURN 

4530  Er :  ! 

4540  DISP  “IMPROPER  COMMAND'!!!" 

4550  RETURN 

4530  Stats:  1 

4570  CALL  Pit  at- S‘". St  at  s 1  •* >  ,  0_set  < *  j ,  Cow!  -O  ,  R <  * ;• ,  S  amp  1  e > 

4580  RETURN 

453©  Create:  ' 

4500  MASS  STORAGE  IS  " :T14" 

4510  INPUT  “Input  file  name  ?“ , Frame* 

4520  STANDARD 

4530  PRINT  "Set*"; Set 

4540  PRINT  “FILE  NAME*"  ;  Fn aihil 

4550  PRINT  "SAMPLES*  “ ; Sample 

4550  CREATE  Fname*, Set , 7000  'SO©  BYTES  /  ARRAY  ♦  I200  BYTES  '  STRING 

4570  ASSIGN  #1  TO  Frame*  ! One  data  set  =  4400  BYTES*  44  BYTES  PER  SAMPLE 

4580  PRINT  #t;Set 
4590  PRINT  #1.;  Sample 
4700  ON  END  *1  GOTO  4720 

4710  PRINT  Bl  Cl '.*>,01  <  >,  pi  <*>,T1*<*> 

4720  PRINT  "Set  l  stored" 

4730  IF  Set  *  1  THEN  4340 
4740  ON  END  #1  GOTO  4750 

4750  PRINT  #1}A2C*>,82<*>,  C2<*>  .  D2<*>  ,E2<*.> ,  F2<*>  ,  T2*<*> 

4760  PRINT  "Set  2  stored" 

4770  IF  Set *2  THEN  4340 
4730  ON  END  #1  GOTO  4300 

4790  PRINT  #  1 5  A3 < * >  ,  B3 < » >  ,  C3 C * > ,  D3 ,  E3 < *  > ,  F3 ,  T3* <  * > 

4800  PRINT  "Set  3  stored" 

4310  IF  Set  *3  THEN  4340 
4820  ON  END  tl  GOTO  4340 

4830  PRINT  #  !  ;  A4  <  *  >  ,  84  <  #  .> ,  C4<*  >  ,  B4  <,'*>,  E4  <  *  .<  ,F4<*>,  T4*<«> 

484©  PRINT  "Storage  done" 

4850  MASS  STORAGE  IS  ":Tl5" 

4360  RETURN 

4870  Debug:  !  MODIFY  AUSTRQN  PROGRAM  FOR  AIRCRAFT  OR  VESSEL  USE. 

4330  INPUT  "Do  you  want  to  insert  the  AuSTRON  program  patch  Y . N  Debug* 

4890  IF  Debug*<  >"Y“  THEN  495© 

4900  RESTORE  4920 
491©  READ  Bug*<*> 

4920.  DATA  DEBUG, OP  10346, RE770O, OP  15579, RE470©, OP  15571 , RE6340, OPi 5372, RE7 1 69 , OP  1 
5573, RE7470 , 0P15574, RE7634 , OP  15575, RE77 16, OP  15576, RE7747, OP  15615 , RE  1 377 

4939  DATA  OP  156 17 , RE  1 376 , OP  1563 1 . RE 1375, OPi 5640 , RE  1 374 , OPI 5774, RE5570 , OP  1 5775 , R 
£3807, OP  1 5775, RE5567, OP  1 5777, RE7771 , OP101 46, RE7773, OP 1 6542, RE09 1 2, DONE 

4940  Bug  c om* 1 
4950  RETURN 
4960  END 

4970  !  ‘4tt**  +  +  **<fi*,****i*i»*»»*4***.ir*^***»»'.*ii»****ifi***«4»i‘****** 

4980  SUB  Kbd^isr  !  KEYBOARD  SERVICE  SUBROUTINE 

4990  Kbd  isr:  COM  Kbb*C 159 1 , Cursor , 3com$C500 ], Se 1  code,Kbd 
3000  DIM  KJC201 

3010  Kbd* 1 

3020  ON  ERROR  GOTO  Keyofl  ! Run_t i me  error  occur ing  when  program  is  running 
3039  K**KBD*  !  Store  keys  pressed  in  K* 

504©  OFF  ERROR  'Disables  ON  ERROR  statement. 

1030  Ne  k  ey :  IF  NOT  LENtKBJ  THEN  Goway 
3©60  IF  NOT  Cursor  THEN  Beep 

3070  K*NUM<K*> 


5080 

5880 

5100 

5110 

5120 

5130 

5140 

5150 

5180 

5170 

5180 

5100 

5200 

5210 

5220 

5230 

5240 

5250 

5280 

5270 

5280 

5200 

5300 

5310 

5320 

5330 

5340 

5350 

5380 

5370 

5380 

5300 

5480 

5410 

5420 

5430 

5440 

5450 

5480 

5470 

5480 

5400 

5500 

5510 

5520 

5530 

5540 

5550 

5580 

5570 

5580 

5500 

5800 

5810 

5820 

5830 

5840 

5850 

5 880 

5870 

5880 

5898 

5700 

5718 

5728 

5730 


Keyof  1 : 

Go  way! 
Second: 


Beep: 


IF  K*255  THEM  Second  'Implies  special  function  key  hit 

K*«K*C23  (Key  stroke  *  second  key  hit 

IF  C Cursor a  1 88 )  OR  <K=12>  THEN  Beep 

IF  K*8  THEN  Lf 

Kbd* C Cursor ; 1 3=CHR*<K) 

IF  LEN(Kbd*>< Cursor  THEN  Nextkey 
TDISP  Kbd*  C Cursor ;  1  ] 

Cursor=Cursor+ 1 
GOTO  Nextkey 

DISP  "Keyboard  buffer  overflow." 

BEEP 

SUBEXIT  !  Returns  to  calling  program  before  SUBEND  is  reached. 
IF  LEN  <K*  >  > l  THEN  Sfk 
K**K*«.K8D* 

GOTO  Second 
K=NUM  <  KS  C  2 1 > 

K**K*C  3 3 

Shi f  t*K  DIV  84 

K*B INANt  <  K , 83 ) 

ON  ERROR  G03UB  Nada 

ON  K  +  l  GOTO  U0 , U 1 , U2 , U3 , U4 , U5 , US , U7 , U3 , U9 , U  a, Ub , Uc , Ud , Ue , Uf 

ON  K-15  GOTO  St ep ,  Pa,  Ru,  Co,  St ,  Ex. ,  Lf ,  R  i  ,  Up ,  Dn ,  R I  u ,  R  I  d ,  Ho ,  C  I  r ,  C2e 

ON  K-30  GOTO  Die , Inc , D1 1 , Ini , Rc I , Tab, Tbs, Tbc , Typ 

ON  K-49  GOTO  Bs , Res , St op, C 11 

OFF  ERROR 

BEEP 

GOTO  Nextkey 
RETURN 

WRITE  10  Sel  code, 5; 1 
WRITE  10  Sel~code, 4; 48 
WRITE  10  Sel  code, 5; 132 

BEEP 

WRIT  2O0 
BEEP 

WRITE  10  Sel  code, 5; 1 
WRITE  10  Sel~code,4;7 
WRITE  10  Se!~code, 5J 132 
GOTO  Nextkey 
! 

IF  Cursor< 2  THEN  Nextkey 
Cunor*Cursoi —  1 
TDISP  CHR*<3> 

GOTO  Nextkey 
!  PRINT  PAGE; 

DISP 

Kbd**"" 

Cursor=t 
GOTO  Pal  1 
Kbd*CCursor3*" " 

TDISP  CHR* (12) 8>Kbd*4<RPT* ( CHR* < 3 ) ,  LEN < Kbd* > -Cursor*  1  > 

GOTO  Nextkey 


10  Sel_code, 4; 48 
10  Se 1 _c ode , 5 ; l 32 


IF  <K< 10) 
Cursor«0 
SUBEXIT 
Kbd*8 
Cursor*0 
SUBEND 


<K>21>  THEN  Beep 


!  RETURN  KEYBOARD  TO  CALCULATOR  NODE 


SUBEND  (Returns  to  calling  program. 

SUB  Get_l  i  nev'Li  ne* ) 

Cet_1 ine:COM  Kbd* C 159 3 , Cursor , Dcom*C 5003 , 3e l_c ode 
Loop:  IF  NOT  FNKbd_ready  THEN  Loop 

Li  ne**Kbd* 

TDISP  CHR*<12>  (Clears  the  entry  keyboard  line 

Kbd**"" 

Cursor*! 


3740  S 

3750 

3750  Doom  i 

5770 

5780 

5790 

5380 

5810 

5320 

3830 

3840  Error: 
5850  Our  *L. 
5850  D ISP 
3870  DcomJ 
5880 

3890  $ 

5900  SUB  r 

3910  Dcom  s 

3920 

5930 

5940 

5950 

5960 

3970 

5980 

5990 

6000 

6810 

6020 

6030 

»t«f  iCtor 
6040 
6050 
6060 
6070 
6030 
6090 
6100 
6110 
6120 
6130 

6140  Error: 


SUBEMD 

SUB  Dcom_i sr 1  COMMUNICATIONS  SUBROUTINE 

isr:COM  kbd*C 159 1 , Cursor , Dcom*C500 1 , Se 1  cod* 
DIM  D*C330I 

D*»TBUF*  IThis  »'or»3  data  •: 

1  into  D*  from  TBUF* 


in  from  93836A 


!  IP  LEN<D*)+LEH<Dcom*>  500  THEN  Error 
IP  LENC  DO  +LEN  •:  Do  on*  >  ■  500  THEN  Dcom**"" 

Dcom* CLE1K Doom! <  +  l ]  =  D*  ! Add  on  to  the  intjrns 

SUBEXIT 

Error:  DISP  “Datacomm  overrun." 

Our*LEN<  Dc  om *)  +LEH  i.  D*  > 

DISP  "Outrun*  “jOur 
Dc  om*=D* 

BEEP 

SUBENO 

SUB  Dco#i_sttup(Err)  !  SETUP  RS  232 
Dc om_stt : COM  Kbd*C  1 59 1 ,  Cursor ,  Dcom*C300 1 ,  Se  1  __code 

READ  Stopb i t  s, P  ar i t y , B 1 1  sperchar , B i t r  at  ef ac  t or 
DATA  1,2, 3, 2  !At  9600  bauds  bit  rat®  factor 

Err»3 

IF  NOT  IOSTATUS<Sel  code)  THEN  Error  ! I f  RS-232 


internal  buffer 


STATUS 


code; S 


IF  3  I HAND  <  3 , 43 ) <  > 1 6  THEN  Error 
WRITE  10  Se  1  ode ,  5 ;  1 
WRITE  10  Sel  code, 4; 64 
WRITE 


If  R S ~ 2 3 2  is  0  /  not 
operational  then  an  error 
occurs . 

S  is  the  status  of  the 
RS-232,0  to  511,3=402 
!  BINAND<402, 43) *16 
Set  control  mode 
Reset  USART 


Se 1 _code , 4; Stopbi t  s*64  +  P  ar i ty*16+<Bi t  sper ch  ar-5  >  *4 +  B i tr 

!  Set  mode  uord 


WRITE  10  Se 1  code,4;39 
WRITE  10  3el”code,5;0 
READ  10  Sel  J:  ode, 4; $ 

WRITE  IQ  Sel_code,7;0 
WRITE  10  Se 1 "code, 5; 1 32 
STATUS  Sel_code;S 

IF  BINAND<3, 123)  THEN  SUBEXIT 


Set  control  uord 

Set  data  mode 

Read, regi st er < 4) *S=  1  33 


s=402 

I  B  I  HAND <402, 123 >  =  123 
Bit  7  interrupt  enable  or 
Bit  3  Peripheral  Status 
has  to  be  enabled 


6130  BEEP 

6160  Err=l 

6170 

6130  SUBEND 

6190  DEF  FNDc_ready 

6208  Dc_rdy: 


DISP  "Select  code  not  oper at i onal . " 

BEEP 

Err=l  !  IF  Err=l  upon  exiting  subprogr am, then  communi c at i ons 
1  link  uas  not  established. 


CHECK  FOR  CR  OR  SOH  CHARACTER  IN  Dcom* 
COM  Kbd*C159],Cursor,Dcom*C500],Sel_code 


RETURN  P03(Dcom*,CHR*<13)>  OR  POSCDcom*.  CHR*< 1 ) ) 


t  here  is  ns i t  her 


is  the  returned 


6210  RETURN  P0S<Dcom*, CHR*< 141 ) )  OR  POSCDcom*, CHR*<  129) )  !  I f  there  is  neitner 

then 

6220  !  RETURN  P03< Dcom*, CHR*< 13) )  OR  POSCDcom*, CHR*< 1 ) )  ! If  there  is  neither  th 

en 

5238  !  a  0  is  the  returned 

6240  FNEND 

6238  DEF  FNKbd  ready  1  CHECK  FOR  CR  < EXECUTE,  CONT,  OR  3  F  4 

6260  Kbd_rdy:  COM  Kbd*C 1591 , Cursor , Dcom*C380I , Se l_code 

6270  RETURN  NOT  Cursor  !  Returns  a  8  if  Cursor  is  1 

5230  !  Returns  a  l  if  CONT, EXECUTE, STORE 

5290  •  uas  hit 

6300  FNEND 

6310  SUB  Get_data< A*, Prompt )  !  Get  data  from  Dcom*, data  in  circular  buffer  TBUP* 
6320  Get__dat  a:  COM  Kbd*C  1391 ,  Cursor ,  Dcom*C5083 ,  Sel  code 

6330  Prompt*! 

6340  DIM  Z*C300I 

6330  IF  NOT  FNDc  ready  THEN  6330 


Nl»P0S<Dcom*, CHR*< 141 > ) 


! Pos i t i on 


in  data 


i 


6370  !  NX  *PQS  <  Be  om* ,  CHR  *  •:  1 3  >  >  (Position  of  CR  in  data 

6380  N2=P0S<Dcom*,  CHR*<:  129)  >  'Position  of  SOH  in  data 

6390  !  N2*P0Sf  Scorn*,  CHP*(  1  )  )  .'Position  of  SOH  in  data 

6400  IP  N2>0  THEN  Data  ! If  SOH  is  in  the  data  then  take  out  strip 

6410  !  chart  data 

6420  A*=Dc om*C 1 , N 1 - 1 3  '  If  no  SOH  data  is  everything  up  to  the  CR 

6430  Dc om*=Dc om* C N  1  * 1  I  !  The  rest  of  the  data  is  put  into  Doom* 

6440  IP  fl*Cl,  1  ]*CHR*<  138>  THEN  A*=A*C2I  !  If  the  first  character  is  a  LF  tare 

6450  !  IF  A*C  1 ,  1  I=CHR*<  10  >  THEN  ri*  =  Pt*C23  !  I  f  the  first  character  is  a  LF  take 

64 60  !  everything  after  the  LF 

6470  FOR  1  =  1  TO  L £ N h* > 

6480  2*C  I ,  n*CHR*<NUN<ft*n  ,  ID-128) 

6490  NEXT  I 

6500  A*»2* 

6510  SUBEXIT 

6520  Data:  IF  LEN<Dcom*>-N2<9  THEN  Depart  !If  the  data  is  less  than  9 

6530  !  characters  then  the  data  is  no  goo 

d 

6540  Prompt=2  Igoto  loop 

6550  R*=Dcom*CN2,  N2+9I  IStripchart  date  is  taken  out  and  put  in  A* 

6560  Dcom*  =  Dcom*C  l ,  N2-1  IS<Dcom*CN2+i0]  !  Remaining  data  is  combined 

6570  SUBEXIT 

6530  Depart:  Prompt=3 

6590  SUBEND 

6600  SUB  D i sp_run<  0< *> , N, Xmn, Xmx, Ymn , Ymx , Mp , Xaxes , Taxes , Prx , Pry , Cba, Lc  b , Cbb , Cbc , 
Lcb2,Lcb3,Stp,Sdev<*>> 

6610  DIM  Yd< 1 > , Xd( 1 > , Xp 1 ot  <  t ) , Ypl ot ( 1 ) , X*C3 1 , Y* C 3 1 , Cb< 1 > , P*C 20 1 

6620  IF  N<  =0  THEN  6660 

6630  Dev_w=Sde'.' <  2  ,  1  )  xSQRC  N )  *  1 000 

6640  Dev_:<=Sdev  <  2 , 4  )  ^'SQR<  N  )  *  1 000 

6650  Dev“y=Sdev<2,  6).-  SQR<N>*1800 

6660  ON  Xaxes  GOTO  6670, 6780, 6730 , 6760 

6670  X*= " TDW " 

6680  Xplot*0<l) 

6690  GOTO  6730 

6700  X*=“ TDX“ 

6710  Xp 1 ot  =0<2) 

6720  GOTO  6780 

6730  XJ-'^DY" 

6740  Xplot=0<3) 

6750  GOTO  6780 

6760  X*=“TD2" 

6770  Xplot=0<4; 

5780  ON  Yaxes  GOTO  6790, 6320, 6350, 6888 

6790  Y*="TDW" 

6800  Ypl ot=0< 1 ) 

6810  GOTO  6900 

6820  YS-^TOX" 

6830  Ypl ot*0<2) 

6840  GOTO  6900 

6850  Y**“TDY" 

6860  Yp 1 Ot  »0<  3) 

6870  GOTO  6900 

6880  Y*  =  ,,TD2M 

6890  Yplot=0<4) 

6900  Xd*Xmx-Xmn 

6910  Yd=Ymx-Ymn 

6920  Cb*Dev  w*<Yd'58> 

6930  Cb2*Deu__x*<  Ydr  50  > 

6940  Cb3*Dev  y*<  Ydx50  > 

6958  IF  N >8  THEN  7528 

6960  PLOTTER  IS  13, "GRAPHICS" 

6970  GRAPHICS 

6999  LOCATE  8,118,0,213 

6998  CLIP  0, 13,0, 108 

7800  FRAME 


7010  UNCLIP 

7020  SCALE  Xmn-Xd*. 25 , Xmx+Xd* . 05 , Ymn-Yd* .  10 ,  Ymx *Yd*  .  15 

7030  CLIP  Xmn-Xd* . 23, Xmn-Xd* . 1 0, Ymn, Ymx 

7040  AXES  10,  Yd/20, Xmn-Xd*. 25, Ymn, 30, 2 

7050  CLIP  Xmn, Xmx, Ymn, Ymx 

7060  Xtic=Xd/10 

7070  Yt  i  •:  *Y d/ 10 

7080  AXES  Xt  ic  ,  Yt  i  c,  Pr.c.Pry,  18,  10 

7090  FRAME 

7100  UNCLIP 

7110  MOVE  Xmx*Xd*. 81 , Ymn 

7120  LABEL  USING  "K“  ;  'AS 

7130  DEG 

7140  LDIR  0 

7150  LORG  1 

7160  MOVE  Xmn, Ymx+Yd*. 3 1 

7170  LABEL  USING  "K";Y* 

7180  LORG  2 

7190  FOR  J=1  TO  10  STEP  1 

7200  MOVE  Xmn-Xd*. 23, Ymn* J*<Yd/ 10 > 

7210  LABEL  USING  "K" ;J*3 

7220  NEXT  J 

7230  LDIR  0 

7240  LORG  6 

7250  CSI2E  3,  .5 

7260  MOVE  Prx ,  Ymn-Yd* .  0 1 

7270  LABEL  USING  "  DDDDD . DD Prx 

7230  LDIR  270 

7290  LORG  6 

7300  CSI2E  3, . 5 

7318  MOVE  Xmn-Xd* . 0 1 , Pry 

7320  LABEL  USING  " DDDDD . DD “ 1  Pry 

7330  MOVE  Xmn-Xd*. 25, Ymn 

7340  DRAW  Xmn-Xd*. 10, Ymn 

7350  LDIR  0 

7360  LORG  6 

7370  MOVE  Xmn-Xd*. 2, Ymn-Yd*. 009 

7330  LABEL  USING  “K“;',ux“ 

7390  MOVE.  Xmn-Xd*. 16, Ymn-Yd*. 009 

7400  LABEL  USING  "K“;"xy“ 

7410  MOVE  Xmn-Xd*. 12, Ymn-Yd*. 809 

7420  LABEL  USING  "K“  ;  "y-" 

7430  MOVE  Xmn-Xd*. 13, Ymn 

7440  DRAW  Xmn-Xd*. 13, Ymn+Cb 

7430  MOVE  Xmn-Xd*. 16, Ymn 

7460  DRA U  Xmn-Xd*. 16, Ymn+Cb2 

7470  MOVE  Xmn-Xd*. 12, Ymn 

7480  DRAW  Xmn-Xd*. 12, Ymn*Cb3 

7490  LINE  TYPE  l 

7300  MOVE  Xmn,Pry+Mp*<Xmn-Prx> 

7310  DRAW  Xmx, Pry*Mp*<Xmx-Prx) 

7320  LINE  TYPE  2 

7330  MOVE  Xp 1  ot , Yp 1 ot 

7340  DRAW  Xplot,Yp!ot 

7330  IF  N=*0  THEN  Xplot*Xmn 

7360  IF  N»0  THEN  Yplot*Ymn 

7370  POINTER  Xpl ot , Ypl ot . 2 

7380  IF  N >0  THEN  7600 

7390  GOTO  7730 

7600  LINE  TYPE  1 

7610  PEN  -l 

7620  MOVE  Xmn-Xd*. 18. Ymn 

7630  DRAW  Xmn-Xd*.  13,  Ymn-t-Lcb 

7640  MOVE  Xmn-Xd*. 16, Ymn 

7638  DRAW  Xmn-Xd*. 16, Ymn+Lcb2 

7660  MOVE  Xmn-Xd*. 12, Ymn 


? <578  DRAW  Xmn-Xd*.  12,  Ymn+Lcb3 
7680  PEN  1 

7690  MOVE  Xmn-Xd*.  13,  Ymn 

7700  DRAW  Xmn  -  X  d  * . 13, V  m n + C  b 

7710  MOVE  Xmn-Xd* . I 6 , Ymn 

7720  DRAW  Xmn-Xd*. 16. Ymn+Cb2 

7730  MOVE  Xmn-Xd*. 12, Ymn 

7740  DRAW  Xmn-Xd*. 12, Ymn+Cb3 

7750  PEN  1 

7760  Lcb-Cb 

7770  Lcb2«Cb2 

7780  Lcb3*Cb3 

7790  SUBEND 

7300  SUB  St ( 0 < * > , N , 3 t at < * > , Cow ( * > , 0_se t < * > > 

7310  DEFAULT  ON 
7820  OPTION  BASE  1 
7830  DIM  V ar  <  4  >  ,  X  <  4  > 

7840  IF  N > 1  THEN  Jump 
7850  MAT  Q_set*0 
7860  MAT  Stat*<0) 

7870  MAT  Cou«<0) 

7880  MAT  Vara<0) 

7890  Jump: FOR  1*1  TO  4 
7900  X(I)*Oa) 

7910  X<I)»X(I)-0_iita) 

7920  St  at ( 1 , I >*St at ( 1 , I )+X< I >  {Cumulative  sum 

7930  St  at  (2,  0=3 1  at  <2,  I)+X(I)~2  !  Sum-2 

7940  St  at  < 3 ,  I )  =St  at  <  1 ,  I  N  !  Ave 

7950  Var<  I)*3tat  (2, IVN-St  at<3,  I>~2 

7960  IF  Var(I)<0  THEN  Next 

7970  St  at  <4, I >*SQR<Var< I >  > 

7980  Next :  ! 

7990  NEXT  I  - .  _ _ 

8000  Cou<  1 ,  l)*Ca</(  1 ,  t  )*X<  1  )*X<2> 

8010  Cou< 1 , 2)*Cou<  t , 2>+X< 1>*X<3> 

8020  Cou  <  1 , 3  )  *Cou  <  1 , 3 >  *X <  1 )  *X <  4  > 

8030  Cou  <  l , 4  >  »Cou  < 1 , 4 >  +X <  2 >  *X <  3 > 

8040  Cov< 1 , 5 >«Cov< 1 , 5>*X<2)*X<4) 

8050  Cou<  l,6)=«Cou<l,6)+X<3)*X<4) 

8060  Cou<2, 1 >*Cou< 1 , 1 ) xN-St  at  <  3 , l)*3tat<3,2> 

8070  Cou<2, 2)  *Cou<  1 , 2)''N-St  at  <3,  l>*3tat<3,3> 

8088  Cou<2, 3>*Cou< 1,3)'N-Stat<3, l  > *St  at  <  3, 4!> 

8090  Cou<2,  4)*Cou<  t , 4)/N-Stat  <3, 2>*St  at  <3, 3-> 

8100  Cou<2, 5)*Cou< 1 , SJ'N-St at  <3, 2; *St  at  <3, 4> 

8110  Cou  <  2 , 6  >  -Cou  <  1 , 6  > 'N-St  at  < 3,  3  >  *S t  at  <  3 ,  4 > 

8120  Cou  <3,  1  )«Cou<2,  l)/'<Stat  <4,  1  )*Stat  <4, 2)  > 

3130  Cou C3, 2> *Cou< 2, 2> ' <St  at  <  4 , 1 > *St at <4, 3> > 

8140  Co  u<3, 3>*Cou<2,  3)/'<Stat<4,  t>*Stat<4,4>> 

8150  Cou<3, 4>«Cou<2, 4J/-<Stat  <4, 2>*Stat  <4, 3)  > 

8160  Cou<3, 5>*Cou<2, 3>'<Stat  <4, 2>*Stat  <4, 4>  > 

8170  Cou <3, 6>*Cou<2, 6>'<Stat<4,3)*Stat<4,4>> 

8130  SUBENO 

8190  SUB  Reg<Stat<*>, Cou<  *) , S< *> , R< *> , Of f set  <  *> ) 
8200  OPTION  BASE  1 
8210  DEFAULT  ON 

3220  S<1,  l>*S<l,2)*S<l,3>»Stat<3, l > +0f f set < 1 > 
8230  S<l,4)*S(l , 5>*Stat  <3, 2>+0ffset  <2> 

8240  S< 1 , 6>»Stat  <3, 3>+0ffset <3> 

9250  S<2, 1 )*Stat  <3, 2)*0f f set  <2> 

3260  S<2, 2)»S<2,  4)*St  at  < 3, 3 >+0f f  set  ( 3 > 

8270  S<2, 3)«SC2,5>*S(2,6>»Stat <3, 4>*0f fset <4) 
3280  S <  3 , 1 > »S < 3 , 2 > *S< 3 , 3 > »S t  at  <  4 , I > 

8290  S<3,4)*S(3,5)»Stat<4,2) 

8300  S<3, 6)*Stat <4, 3) 

8310  S<4, 1 ) «St at <4, 2) 

3320  S<4,2)»S<4,4)*Stat(4,3) 


8330  S<  4 , 3)  =3 ( 4 , 5  > *S<  4 , 6 > =St  at  (. 4 , 4  > 

8348  FOR  I*t  TO  6 
8338  Ind__oar:  ! 

8360  I  u*  t 
8370  D*2 

8380  IF  3<4,  I ) >S<3, I)  THEN  Io*2 
8390  IF  S<4, I)>S<3, I>  THEN  D*t 
8400  R<3, I)*Io 
8410  Slop*: < 

8420  R  <  1 ,  I  )  “Cow  <3 ,  I)*3<D-,-2,  D/StIv+2,  I) 

8430  IF  Io*2  THEN  R< l, I >*i'R< 1 , I) 

3440  Rea i dull : 1 
8450  C=t-Cou<3, I>~2 
8460  IF  Cs0  THEN  8480 
8470  R<2,  I)*3<D+2,  OiC-'.S 
8480  NEXT  I 
8490  SUBEND 

8500  SUB  Pit  it j<St it a<*> , 0  <*) , Cou<*> , R<*> , Sampl *) 

8510  OPTION  BASE  1 

3520  PRINT  “ _ _ 

M 

8530  PRINT  LIN<l>;TAB<21>;"<TDU>“;TAB<36>; “ <TDX> " ; TAB<51) J " < TDY > " ; T AB  <  66) J " < TD 
25" 

9548  FIXED  3 

8530  PRINT  LIN<1>; TA8< 1 > ; "CUMULATIVE  AVERAGE" ; TAB<20> ; St  it  3 ( 3, l)+0_a*t ( 1>;TAB< 
33>;st*t*<3,2>40  TAB< 50 > ; St  at s<3, 3>+Q  s*t <3>{ TAB<65> J St  at *<3, 4) ♦0_s*t <■*' 

8560  PRINT  LIN”i>;TA8(1);  "STANDARD  DEVIATION"  ; TAB(20> 1  St  at  a ( 4 ,  1 ) ; TAB  <  35)  J  St  it  i 
<4, 2) ; TAB < 50) ; Static  4, 3) ; TAB <65) ; St at  a <4, 4) 

8570  PRINT  LIN<2>;TAB<2S)J “ <MX) " ; TAB< 44 ) ; " < WY) " ; TAB C 64 ) J "<WZ>" 

8580  PRINT  L*IN<  1  )  ;  TAB<  1  >  ;  “CORRELATION  COEFFICENT"  ;  TAB < 24)  ;  Cou<  3 ,  l  )  TAB*. 43)  jCoo 
<3,2);TAB<63);Cou<3,3) 

8390  PRINT  LIN<1);TRB<1>; "REGRESS  ION  LINE  SLOPE" { TAB<24) J R <1 , l ) ; TAB < 43) ; R< 1 , 2) 

; TAB<63) ; R( 1 , 3) 

8600  PRINT  LIN< «;TAB<1> ] "RESIDUAL" 5 TAB<24 > JR<2, l); TAB-:.  43) J R<2, 2> ; TAB (. 63 > ; R < 2 , 
3) 

8610  STANDARD 

8620  PRINT  LIN<1);TABU); "INDEPENDENT  VARIABLE" i TAB < 24) J  R< 3, 1);TAB(43);R(3,2); 
TAB<63) ; R<3, 3) 

8630  FIXED  3 

8640  PRINT  LIN<2)  J TAB<25) ; " < XY ) " ; TAB<44) ; " <XZ) " ! TAB<64)  ;  "<Y2)" 

8630  PRINT  L I N (  1  )  ;  TAB<  1  )  \  "CORRELATION  COEFFICENT"  ;  TAB',24)  ;  Cov-3, 4) ;  TAB<43)  *,Cou 
<3, 3)  ;  TAB < 63) ;  Cov<.3, 6) 

8660  PRINT  LIN<1);TAB<1);  "REGRESSION  LINE  SLOPE"  ;  TABC24)  ;  R(l ,  4)  ;  TAB<.43>  ;  R<1 , 5) 
; TAB<63> ; R< 1 , 6) 

8670  PRINT  LIN<1);TAB<1); "RESIDUAL" J TAB<24 ) } R<2, 4) ; TAB< 43) J RT2 , 5 ) J TAB< 63 ) ; ft 1 2, 

6) 

8630  STANDARD 

8690  PRINT  LIN<  1  > ; TAB< l ) ; "INDEPENDENT  VARI ABLE" 5 TABC24 ) J R< 3, 4) ; TAB (43) J R < 3 , 5) ? 
TAB<63);R<3,6) 

8700  PRINT  LIN< 1 ) ; "SAMPLES* ” ; Samp  1  * 

8718  PRINT  " _ 


PRINT  LINC1) 

SUBEND 

SUB  Graf <  Xmn,  Xmx,  Ymn ,  Ymx ,  Mp  ,  Xax* i ,  Yaj<*j  ,  Prx ,  Pry  ) 

STANDARD 

READ  Xix*s,Yax*s,Xmn,Xmx,Ymn,Ymx,Prx,Pry,Mp 

DATA  2,3,26135.00.26136.00,43995.00,43996.00,26135.72,43993. 36,0 
RESTORE  3770 
GOTO  3890 

INPUT  "Input  what  you  want  on  th#  X-ax»a  ?  : 1*W, 2*X, 3*Y, 4*2" , Xax*a 

INPUT  "Input  what  you  want  on  tho  Y-axt*  ?  : i*W, 2*X, 3*Y, 4«2" , Yax*i 

INPUT  "Input  X-MIN:  26133.08  ?“,X»n 

INPUT  "Input  X-MAX:  26136.88  ?",Xmx 

INPUT  "Input  Y-MIN:  43995.80  ?H,Ymn 

INPUT  "Input  Y-MAX:  43997.00  ?",Ymx 


8720 

8730 

8740 

8750 

8760 

8770 

8780 

8798 

8808 

8810 

8820 

8830 

8840 

8830 


3860 

3370 

3333 

3390 

3900 

3910 

3920 

3930 

8940 

8950 

8930 

8970 

3980 

8990 

f 

9000 

9010 

9020 

9030 

9040 

9030 

9030 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9183 

9190 

9200 

9210 

9220 

9230 

9240 

9230 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9330 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9430 

9460 

9470 

9400 

9490 

9300 


INPUT  "Input  X -PREDICTED: 26135.66  , Prx 

INPUT  "Input  Y-PRED ICTEB: 43995. 77  9“ ,  Pry 

INPUT  “Input  predicted  SLOPE  :l  ?“,Mp 

PRINTER  IS  16 

PRINT  "X-ax»s=";Xaxes 

PRINT  “Y-ax*a*";  Yaxes 

PRINT  “Xmi  n*";Xt»n 

PRINT  “X»4x* “ ; Xmx 

PRINT  “  Y  m  i  n  ■  “ ; Ymn 

PRINT  "Yi»ax*“:Yn»x 

PRINT  "PREDICTED  X=“;Prx 

PRINT  "PREDICTED  Y=“;Pry 

PRINT  "SLOPE  IS=" ; Mp 

INPUT  "Are  the  graphic  par  am* t *rs  displayed  above  correct  ?:Y  or  N  ?"fDta 

IF  Dta*<  >"Y"  THEN  8300 
OUTPUT  9 ; “ R “ 

ENTER  9;PtJ 
PRINTER  IS  0 
PRINT  “X-PXES  *" JXaxes 
PRINT  " Y-flXES 

PRINT  "X-PXE3" I X»n, Prx, Xmx 
PR  TNT  “Y-PXES" ; Ymn, Pry, Ymx 
PRINT  “ SLOPE* " ; Mp 
PRINT  "DPTE  IS  “;Pt* 

SUBEND 

SUB  Tr i ang 1 e C Sa, 3b, Sc , P, B, C> 

INTEGER  E 
DEG 

S*<3a+$b+3c  >x2 
ON  ERROR  GOTO  9170 
GOTO  9190 

PRINT  "ERROR  25" ;P; 3; 3a; 3b; Sc 
SUBEXIT 

RaflCS<  2*S*<3-3a)  -''<3b*Sc  )-l  > 

D*Sa/SIN<P ) 

B«PSN<SbxD;> 

C»PSN< Sc^D) 

OFF  ERROR 
E*P+B+C 

IF  <P<90)  PND  <E<  > 130>  THEN  Pit 
SUBEXIT 

Pit:  IF  Sb< Sc  THEN  Pit 2 

B*130-B 
E*P+B+C 
SUBEXIT 

Plt2:  C*180-C 

E*P-*,B+’C 
SUBEND 

SUB  Pos i  t  i  on<Zo(»>  ,  PI  pha,  Sc  ,  Si  gr>,  B,  2< ♦)  > 

DEG 

OPTION  BPSE  1 

Th*t a«Pl pha*S i gn*B 

Z( l )»2o< 1 >+Sc*S INC  Theta) 

2<2)*2o<2)+Sc*C0S<Theta) 

SUBEND 

SUB  Plot  xy  < Sampl  *  ,  Up_x ,  Wp__y ,  Pp<  * ) ,  R ) 
flx<n»ppTi> 

Py < 1 )»Pp<2) 

H i nx*Mp_x-R 
rtaxx*Up_x*R 
Hi ny“Up_y-R 
f1axy*Wp""y*R 
T  «2 

N-Sample 

IF  N-l  THEN  9830 


9310 

IF  S&o»p1*>8  THEN  9790 

9320 

PLOTTER  IS  13,“CRAPHIC3“ 

9330 

GRAPHICS 

9340 

LOCATE  10.100.10.188 

9530 

FRAHE 

9560 

SCALE  Mi nx , M%xx , M i ny ,  M*xy 

9570 

AXES  . 1 . . 1 , Up_x,Wp_y, 18. H 

9588 

MOVE  1 > ,Ay<l > 

9590 

SUBEXIT 

9600 

DEG 

9610 

MOVE  Minx.Miny 

9620 

LABEL  USING  “K";Minx 

9630 

LORG  3 

9648 

MOVE  Mixx, M i ny 

9650 

LABEL  USING  “ K "  ;  M-axx 

9660 

LORG  8 

9670 

LDIR  8 

9680 

MOVE  Minx, Wp_y 

9690 

LABEL  USING  "K";Wp_y 

9708 

LORG  7 

9710 

MOVE  Mi nx,Mi ny 

9720 

LABEL  USING  “K" ; M i ny 

9730 

LORG  9 

9740 

MOVE  Minx, Maxy 

9750 

LABEL  USING  "K" ;Maxy 

9760 

MOVE  Sxl.Syl 

9770 

Ax  < 1 )»Sxl 

9780 

Ry< 1 )»Syl 

9790 

LINE  TYPE  l 

9800 

DRAU  Ax  <  1  >  , Ay  <  1  ) 

9810 

POINTER  Ax < 1 > , Ay  <  l  ) 

9820 

GOTO  9958 

9830 

MOVE  Rx< 1 > , Ay  < 1  ) 

9840 

POINTER  Ax<  l) , Ay< 1 ) 

9850 

PRINTER  IS  8 

9860 

SUBEND 

9870 

i 

9880 

SUB  Plot  ct<Ct,At,R.N) 

9890 

IF  N>0  THEN  Plot 

9900 

K»1 

9910 

Ct  *0 

9920 

At  *0 

9930 

PLOTTER  IS  13, "GRAPHICS" 

9940 

GRAPHICS 

9930 

LOCATE  28,80, 10, 100 

9960 

SCALE  -. 2, .  2, 2,  R 

9970 

AXES  .01,  . 1,0,0. 10, 18 

9980 

SUBEXIT 

9990 

Plot:  POINTER  Ct , At 

18908  IF  N»1  THEN  10838 
10018  DRAW  Ct.At 
10020  SUBEXIT  * 

10030  MOVE  Ct,At 
10040  POINTER  Ct.At 
10030  K*0 
10060  SUBEND 

10070  SUB  Dobug<A.»,  BugS<-0  ,  Bug_o: 
10080  IF  Bug__count  >38  THEN  10118 
10090  A#*8ug*<8ug  count) 

10100  SUBEXIT 
10110  Bug  co»»0 
10120  SUBEND 
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loading  austron  programs 
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LOADING  THE  AUSTRON  5QQQ  PROGRAM  FROM  THE  9845  AT  300  BAUD 


1.  Secure  all  power. 

2.  Set  M8t>5b  Mooule  in  P0P8/E  to  Coae  0304,  300  Dauo. 

3.  Connect  cable  to  the  M8655  mooule  and  the  RS-232C  from  the  9845  computer. 

4.  Set  RS-232C  bit  rate  switch  to  300  baud  (position  7). 

5.  Set  interface  select  code  on  the  RS-232C  to  position  (10). 

6.  Energize  AUSTRON  5000  system  and  9845  computer. 

7.  Load  bootstrap  ana  check  for  validity. 

8.  Load  program  "L0A030'1  into  9845  computer. 

9.  Push  run  on  9845  and  wait  for  3  beeps,  then  hit  CLEAR/CQNT  on  tne  PDP8/E. 

10.  When  program  is  loaded  (12  minutes),  set  adaress  0200. 

11.  Load  program  "SURVEY"  into  9845  computer. 

12.  Push  RUN  on  984b  computer. 

13.  Hit  CLEAR/CONT  on  AUSTRON  5000  system. 

14.  The  following  AUSTRON  test  data  should  appear  on  9845  computer. 

AUSTRON  SYSTEM  500 
LORAN-C  MONITOR  TEST  VERSION  2/8/77 

15.  Set  up  AUSTRON  5000  system  in  accordance  witn  tne  AUSTRUN  command  dic¬ 
tionary  (appendix  A). 
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LOADING  THE  AUSTRON  5000  PROGRAM  FROM  THE  9845  AT  9600  BAUD 


1.  Secure  all  power. 

2.  Set  M8655  control  card  to  Code  0304  and  9600  baud. 

3.  Connect  cable  to  the  M8655  module  and  the  RS-232C  interface  from  the  9845 
computer. 

4.  Set  the  RS-232C  bit  rate  switch  to  9600  baud  rate  position  (position  10). 

5.  Set  interface  select  code  on  the  RS-232C  to  position  10. 

6.  Energize  AUSTRON  5000  system  and  9845  computer. 

7.  Load  bootstrap  and  check  for  validity. 

NOTE:  MAKE  SURE  YOU  ARE  AT  FIELD  0  FOR  LOADING  BOOTSTRAP. 

8.  Load  "L0AD96"  into  9845  computer. 

9.  Push  run  on  9845  computer  and  wait  for  3  beeps,  then  press  CLEAR/CONT  on 
the  P0P8/E.  (Lights  will  come  on  as  the  300-baud  rate  order,  only  the 
load  time  is  30  seconds  instead  of  12  minutes.) 

10.  After  program  is  loaded,  go  to  address  0200. 

11.  Load  "SURVEY"  program  into  9845  computer;  hit  RUN. 

12.  When  9845  is  ready,  set  address  0200  on  PDP8/E  and  hit  CLEAR/CONT. 

13.  The  following  AUSTRON  test  data  should  appear  on  9845  computer. 

AUSTRON  SYSTEM  500 
LORAN-C  MONITOR  TEST  VERSION  2/8/77 

15.  Set  up  AUSTRON  system  in  accordance  with  AUSTRON  command  dictionary. 


PDP8/E  LIGHT  INDICATIONS  WHILE  LOAOING  AUSTRON  PROGRAM  (300  BAUD) 


1.  Load  bootstrap  (switch  in  "MD"  position). 

2.  M8655  card  set  to  0304  code. 

3.  Verify  bootstrap  (examine  switch). 

4.  Set  address  0030  (switch  in  "STATUS"  position). 

5.  When  program  is  loading,  the  "LINK"  light  will  blink. 

6.  When  loading,  the  RUN  light  should  be  lit. 

7.  After  start  of  load  process,  the  address  lamps  should  indicate  7675  after 
18  to  28  seconds. 

8.  After  3  minutes  and  40  seconds,  the  DF2  lamp  should  light. 

9.  After  8  minutes,  the  DF1  lamp  should  light. 

10.  After  12  minutes,  the  address  lamps  should  indicate  7777. 

11.  Program  is  loaded,  RUN  light  is  out. 

NOTE:  AT  9600  BAUD,  THIS  PROCESS  TAKES  30  SECONDS. 
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1  !  THIS  PROGRAM  IS  CALLED  "LOADS©*1 

10  !  THIS  PROGRAM  READS  THE  AIJ  3TRON  5000  MONITOR  DATA  FROM  THE  HP -9345  TAPE. 

20  !  THEN  SENDS  IT  TO  THE  PDP-S.  WHERE  IT  IS  LOADED  INTO  THE  FDR-3. 

30  !  C t  CONSIST  OF  THE  ASCII  CODE  PROGRAM  FOR  THE  AUSTRON  SO 00  MONITOR  3YSTE 

40  DIM  C*C 133373  !  THIS  IS  THE  EXACT  SIZE  OF  THE  MONITOR  PROG 

SO  ASSIGN  #1  TO  "Cl" 

(50  READ  #1,1 

70  READ  #l:Ci  !  READS  C4<  DATA,'  FROM  934  S  TAPE. 

SO  CALL  Mr  i  t  4  : o  n t  r  o  1 ' 0  • 

90  OUTPUT  lO  USING  3 

100  WAIT  2O0 

110  OUTPUT  10  USING  "#,5"; 37 
120  WAIT  200 

130  CALL  Writs  control »0> 

140  OUTPUT  lO  USING  “#,B" ;*4 

ISO  OUTPUT  10  USING  "#.B" J207  !  SETS  BAUD  RATE.  RATE  IS  300  BAUD. 

ISO  OUTPUT  lO  USING  "#,B":37 
1  70  CALL  Ur  it*  ont  ro  1  ».  1  > 

ISO  OUTPUT  lO  USING  •,#.B'';3 
ISO  OUTPUT  10  USING  "#,£"; 39 
200  CALL  Writ*  control <0> 

210  CALL  Wr l t *~, control < 1 >  !  SETS  UP  THE  R5-232  INTERFACE. 

220  OUTPUT  10  USING  "#,B',;39  !  MAKES  THE  HP-9345  A  TRANSMITTER. 

230  CALL  Ur i t *  control <0> 

240  WRITE  10  I0,o;i  !  WRITE  TO  THE  10. 

250  PRINTER  IS  10  !  MAKES  THE  RS-232  LOOK  LIKE  A  RECEIVER. 

230  BEEP 
270  WAIT  1000 
230  BEEP 
290  WAIT  1000 
300  BEEP 

310  WAIT  1O00O  !  AFTER  3  BEEPS,  YOU  HAVE  10  SECONDS  TO  HIT,  CLEAR,  CONT,  ON 

THE  PDP3/E.  TO  LOAD  PROGRAM  FROM  HP-3345. 

320  OUTPUT  10  USING  "#,K“;C* 

350  END 

3o0  SUB  Wr  i  t*_contro  I  Control  _word> 

370  CONTROL  MASK  13; Control  word 
330  IF  NOT  IOFLAGM0)  THEN  330 
330  WRITE  10  10, 5; Control  word 
400  SUBEND 


10  1  THIS  P&OGPflM  IS  CALLED  1  LOADS*" 

20  !  THI'i  PROGRAM  READS  Th£  AC  SZP'QN  5000  HON  l  TOR  DATA  FROM  THE  HP-9845  TAPE. 

30  !  THEN  SENDS  IT  TO  THE  P  BP-3.  WHERE  IT  1 3  LOADED  INTO  THE  PDP-'i. 

40  !  C*  CONSIST  OF  THE  ASCII  CODE  PROGRAM  FOR  THE  AUSTRON  5000  MONITOR  ivS'EM. 

50  DIM  C*U3397]  •  THIS  IS  THE  EXACT  SIZE  OF  THE  MONITOR  PROG. 

SO  ASSIGN  #1  TO  " C * 

TO  READ  #1 ,  t 

SO  READ  #t;C*  1  READS  CS 1  DATA )  FROM  9345  TAPE. 

90  CALL  Mr t t «  control  >0  1 
100  OUTPUT  10  USING  "*,£•'  ;3 
110  WAIT  ZOO 

120  OUTPUT  10  USING  "#,B";37 
ISO  WAIT  200 

1  40  CALL  Wr  l  t  Orir  ro  1  ’■  0  > 

150  OUTPUT  10  USING  B  "  :  o  4 

ISO  OUTPUT  10  USING  "#,B“;20*  1  SETS  BAUD  RATE.  RATE  IS  9830  BAUD. 

170  OUTPUT  10  USING  “*,B";37 
ISO  CALL  Writ-*  control  t  l  > 

190  OUTPUT  10  USING  '•#.  B  * ;  3 
200  OUTPUT  10  USING  B“ ; 39 
210  CALL  Wr  1 1. «__contro  t  <0> 

220  CALL  MriT.«“:ontroKl.'  I  SETS  UP  THE  RS-232  INTERFACE. 

230  OUTPUT  lO  USING  "*.B";39  '  MAKES  THE  HP-9345  A  TRANSMITTER. 

240  CALL  Writ*  ■:  o n t  r o  I  0 ,• 

250  WRITE  10  JO. ill  !  WRITE  TO  THE  10. 

2*0  PRINTER  15  10  !  MAKES  THE  RS-232  LOOK  LIKE  A  RECEIVER. 

270  BEEP 
2S0  WAIT  1O00 
290  BEEP 
300  WAIT  10O0 
310  BEEP 

320  WAIT  10O0O  '  AFTEP  3  BEEPS.  YOU  HAVE  10  SECONDS  TO  HIT,  CLEAR,  CONT,  ON 

THE  PDFS- E .  TO  LOAD  PROGRAM  FROM  HP-9345. 

330  OUTPUT  10  USING  '•  *  ,  k  "  ;C* 

340  END 

350  SUE  Wr  i  **_■:  ontro  l  <  Control  word'" 

3*0  CONTROL  MASK  10;  Control  ijord 
370  IF  HOT  IOFLAC.  10>  THEN  370 
380  WRITE  10  10, 5; Control  word 
390  SUBEND 
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APPENDIX  G 

CALCULATION  OF  VESSEL  POSITION 


CALCULATION  OF  VESSEL  POSITION  USING  MINIRANGER 


N 

(x,y) 

+No,  Eo 


FIGURE  G-l.  REFERENCE  TRIANGLE 


Definitions: 

/\a,B,C  =  Triangle  formed  by  survey  vessel  and  two  Miniranger  reference 
stations;  A  is  vessel,  B  and  C  labeled  clockwise  from  A 
(X  -  Azimuth  between  reference  stations  (B  to  C) 

R  =  Range  between  reference  stations  (B  to  C) 

R]  =  Range  from  reference  station  to  vessel  (C  to  A) 

R2  =  Range  from  reference  station  to  vessel  (B  to  A) 

Ng,Eg  =  State-plane  coordinates  of  reference  station  (B) 

Nc,Ec  3  State-plane  coordinates  of  reference  station  (C) 

xg,yg  =  Local  grid  coordinates  of  reference  station  (B) 

x,y  »  Local  grid  coordinates  of  vessel  (A) 

No,Eo  =  State-plane  coordinates  of  local  grid  origin 

Sign  *  +1  or  -1  depending  on  which  side  of  the  baseline  (B  to  C)  the 

vessel  is 

Calculation  of  vessel's  local  grid  coordinates: 

Given:  No,Eo 

"B.  eB 

"c.  £c 

Measure:  R^  ^ 
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Solution: 


Calculate  local  grid  coordinates,  of  reference  station  (8j 


XB  ■  eB  “  E0 
yB  =  NB  -  Nq 

Calculate  azimuth  and  range  between  reference  stations 


Of  =  ATN((EC-EB)/(NC-NB)) 

If  (Nc-Ng)  <  0  then  Cl  =  Oi  +  180 
If  Of  <0  then  Ol  =  2  +  360 
R  =  SQR  ((EC-EB)2  +  (NC-NB)2 


-  Calculate  angles  of  A  formed  by  vessel 
using  low  of  sines^- 


and  two  transponders 


S  =  (R  +  R1  +  R2)/2 
A  =<A  =  ACS(21*S*(S-RJ/(R1*R2)-1) 
0  =  R/SIN(A) 

8  =<8  =ASN  (Ri/D) 

C  =<TC  =  ASN(R2/D) 


If  A  -*90°  and  A+B+C  £  180  then  either  8  or  C  is  greater 
than  90° 


The  larger  angle  will  be  opposite  the  longer  side: 

if  R1  <  R2  then  C  =  180  -  C,  B  *  B 

if  R2  -=■  R1  then  B  =  180  -  B,  C  *  C 

Calculate  local  grid  coordinates  of  vessel: 

x  =  xB  +  R2  sin  (O'  +  sign  *  B) 

y  *  yB  +  R2  cos  {  Qt  +  sign  *  8) 

Sign  is  normally  1;  if  the  baseline  is  crossed  then  sign 
switches  to  -1 
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Considerations: 


The  Miniranger  range  measurements  are  slant  range,  any  significant 
difference  in  heights  between  the  master  and  remote  transponders 
must  be  considered.  The  difference  between  slant  range  (R)  and  true 
range  (R+)  is  a  function  of  the  difference  in  height  between  trans¬ 
ponder  (h)  and  the  separation  between  transponders  (Rt)  . 


h 


FIGURE  G-2.  RANGE  TRIANGLE 


Rt  =  SQR  (R2  -  h2) 


_R_h£ 

2R 


h6 


hi_  _ 

8R3  ‘  16R5 


error  = 


R  -  Rt  s^sili 
2R 


NOTE:  If  maximum  allowable  error  is  1M  at  2000M, 

1  •  mm  '■ h2  -  4000;  h '  HH 

i.e.,  difference  in  height  should  be  less  than  63M. 

The  correction  to  change  horizontal  distance  from  a  cord  distance  to 
an  arc  distance  in  the  surface  of  a  spheroid  is  a  function  of  the 
distance1 . 


K=*  1 .027  H3  x  10'15 
for  K  —  1M 

H  S  99  1 1 5  KM 

For  our  purposes,  this  correction  is  not  significant. 

-  The  correction  to  change  horizontal  distances  at  the  mean  elevation 
of  the  transponders  to  the  horizontal  distance  at  mean  sea  level  is 


C=z  -R 


6,390,000 


for  C  =  1M  and  R  =  5000 


Again,  tnis  is  not  a  significant  factor  for  our  purposes. 


-  Until  proven  otherwise,  the  calibration  of  the  Miniranger  transpon¬ 
ders  should  oe  checkea  daily  before  ano  after  data  collection. 

-  The  vessel  position  solution  assumes  a  planar  geometry.  This 
assumption  holds  if  the  area  of  the  triangle  is  less  than  7b  square 
miles*'. 


for  a  right  triangle  witn  R1=R2 
Area  =  1/2  Rl2 

if  Area  =  75  mi2 

Rl2  =  -y/T50  =  12.25  miles 

-  The  accuracy  of  position  determined  from  a  single  measurement  of  two 
ranges  is  a  function  of  the  crossing  angles  of  the  LOPs  and  the 
accuracy  of  the  range  measurement  (assuming  tnat  any  bias  errors 
have  been  eliminated  during  calibration). 

7  radial  error  =  V r 

Typical  <Jr  =  1M 

A  (deg)  O’  error W 

90  1.4 

60  1.6 

45  1.63 

30  2.8 

15  5.5 

10  8.1 

'Surveying  Computers  Manual,  TM  5-237,  October  1U64,  Department  of  Army. 


Calculation  in  program  "SURVEY" 

-  Calculation  of  reference  station  Bs  local  coordinates  ano  the  range 
and  azimuth  between  reference  stations  is  done  in  the  suoroutine 
Qata_coll . 

-  The  subprogram.  Triangle,  calculates  the  angles  A,B,C. 

-  The  subprogram,  Position,  calculates  the  local  grio  cooroinates  of 
the  vessel . 
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STATISTICS  CALCULATIONS,  SUBPROGRAM 
St(0(*),  N,  Stat(*),  Co v(*),  Q_set( *)) 


This  subprogram  calculates  cumulative  sum,  sum  of  squares,  mean,  standard 
deviation,  sums  of  cross  products,  covariances,  and  correlation  coefficients 
for  four  variables. 

Inputs  are: 

0(*j  -  current  sample  (4x1) 

N  -  sample  number 
Outputs  are: 

0_set(*j  -  The  first  data  sample  which  is  subtracted  from  succeeding 
samples  to  eliminate  roundoff  error  in  stanoaro  deviation  ano  covariance 
calculations. 

Stat(*>  -  A  summary  statistics  array  for  the  oumrny  variaole  X(*;  wnere 
XI*)  *  0(*)  -  0_set(*j . 

Note: 

Mean  0(i)  =  Mean  X(i)  +  0_set(i;,  i=l  to  4 

Standard  deviation  0(i)  =  Standard  deviation  X(ij,  i=l  to  4 

Covariance  0(i)0(j)  3  covar  X(i)X(j),  i*l  to  4 

Entries  in  Stat(*)  are: 

N 

Stat(l,i)  »  Y_  x  C  i  J »  i  3  1  to  4 
1 

N 

Stat(2,i)  *  Z  *2(i),  i  *  l  to  4 
1 

N 

Stat(3,i)  =  Z  x(i)/N,  i  *  1  to  4 


Stat(4,i )  =  (  Z  x2(i)/N  -  (  Z  x(i)/N)2)l/2 


Cov(*)  -  A  summary  covariance  array  for  the  dummy  variable  X(*). 

Entries  in  Cov ( *)  are: 

N  N  N  N  N  N 

Ex(1)X(2),  IxiDXU),  1  XU)X14),  IxU)X(3),  £x(2)Xl4),  Ixi3)X(4) 

cov  X(1)X(2) ,  cov  X(1)X(3) ,  COV  XU)X^4),  cov  XU)X(3j, 
cov  X(2)X(4),  cov  X(3)X(4) 

ri2>  r13>  r14»  r23>  r24*  r34 
where: 

cov  X(i)X(j)  *  X(i)X(j)/H  -  I  X(i)  I  X(j) 
r i j  3  cov  X1  Xj/(CrXi*CTXj) 
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LINEAR  REGRESSION  CALCULATIONS,  SUBPROGRAM 
Reg($tat(*),  Cov(*),  S(*),  R(*),  Offset  (*)) 


This  subprogram  calclates  linear  regression  coefficients  and  residuals  for 
pairs  of  four  variables.  This  program  is  supported  by  the  subprogram  St(Q(*), 
N,  Stat(*),  Cov(*),  0_set(*) ) . 

Inputs  are: 

Stat(*)  -  A  summary  statistics  array  which  contains  the  cumulative  sum, 
sum  of  sqaures,  mean,  and  standard  deviation  of  four  variables.  (.See 
appendix  _ . ) 

Cov(*)  -  A  summary  statistics  array  which  contains  the  cumulative  sum  of 
crossproducts,  covariance,  and  correlation  coefficient  for  each  pair  of 
variables.  (See  appendix  _ . ) 

Offset(*)  -  The  first  data  sample  which  is  subtracted  from  succeeded  data 
samples  to  prevent  round-off  error  in  standard  deviation  and  covariance 
calculations.  (See  appendix  _ . ) 

Outputs  are: 

S(*)  -  A  6x4  array  which  contains  the  means  and  standard  deviations  for 
each  pair  of  variables.  Entries  are 
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where 

Mi  =  mean  of  the  ith  variable 
(Ji  =  standard  deviation  of  the  ith  variable 

R(*)  -  A  6x3  array  which  contains  the  linear  regression  slope,  RMS 
residuals,  and  definition  of  independent  variable.  Entries  are: 
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where 


Si j  is  the  slope  of  the  jth  variable  with  respect  to  the  ith 
variable. 

Rji  is  the  rms  residuals  of  the  linear  regression  of  vari¬ 
ables  i  and  j. 

Iij  indicates  which  variable  is  used  as  the  independent 
variable  in  the  calculations;  if  I-jj  =  1,  the  i  *  independent 
variable;  if  I^j  =  2,  then  j  =  independent  variable. 

The  linear  regression  of  the  variable  y  onto  the  variable  x  can  be  expressed 
in  the  following  form: 

(y-y)  ■  m  (x“x) 

where  y  is  the  dependent  variable 
x  is  the  independent  variable 
£  is  the  mean  of  the  dependent  variable 
x  is  the  mean  of  the  independent  variable 
m  is  the  regression  line  slope  =  rxy  CTy/  Cx 
rXy  is  the  correlation  coefficient 
ry  is  the  standard  deviation  of  the  dependent  variable 
— x  is  the  standard  deviation  of  the  independent  variable 

In  the  program,  the  variable  with  the  larger  standard  deviation  is  chosen  as 
the  independent  variable  for  calculating  slope.  However,  the  value,  $ij, 
stored  in  the  array  R(*),  i.e., 

Rj^;  i  *  1  to  6 

is  the  slope  of  the  jth  variable  with  respect  to  ith  variable.  If  the  jth 
variable  is  the  independent  variable,  the  slope  is  inverted  before  being 
stored  in  R(*).  The  value  stored  in  R3i  indicates  which  variable  is  the 
independent  variable  for  the  linear  regression  calculations. 

The  residual  is  calculated  using  the  following  expression. 

Residual  »  ^dependent  variable 

It  is  a  measure  of  how  well  the  linear  regression  line  fits  the  data. 
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VARIABLE  LIST 


Data  Communications  Arrays 

8uf$(*) (Kbd$(*) }  -  Stores  keyboard  entries  when  the  keyboard  is  in  the  tele¬ 
type  mode. 

Dcom$(*)  -  Stores  data  from  the  Austron  5000  (via  TBUF$)  until  it  can  be 
processed  by  the  program. 

A$(*)  -  Message  to  be  transmitted  to  Austron  5000. 

B$(*)  -  Message  received  from  the  Austron  5000. 

Bug$(*)  -  Program  patch  for  Austron  5000. 

TBUF$  -  Stores  data  from  Austron  5000. 

Data  Communications  Variables  and  Flags 
Cursor  -  Transmit  data  to  Austron  flag. 

Sel_code  -  Select  code  for  RS232  interface. 

Coimiand  -  Transmit  data  to  Austron  flag 

Bug_com  -  Transmit  Austron  5000  program  patch  flag 

Kbd  -  Flag  to  switch  from  teletype  to  calculator  keyboard  mode  switch  =  not 
kbd  and  cursor. 

Data  Arrays  and  Variables 
Td(*)  -  TD  sample. 

TimeS  -  Time  sample. 

Sample  -  Sample  number. 

Set  -  Data  set  number,  increments  every  100  samples. 

R1  -  Range  1  sample. 

R2  -  Range  2  sample. 

Al(*),  A2(*),  A3(*) ,  A4(*)  -  TOW  data. 

Bl(*) ,  821*),  B3(*),  B4(*)  -  TDX  data. 

Cl(*),  C2(*) ,  C3(*),  C4(*)  -  TDY  data. 
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01(*),  02 ( *) ,  D3(*),  D4(*)  -  TOZ  data. 

El ( *) »  £2{*),  E3(*),  E4( *)  -  Range  1  data. 
Fl(*),  F2(*),  F3(*) ,  F4(*)  -  Range  2  data. 
Tl$(*),  T2$(*) ,  T3$(*),  T4$(*j  -  Time  data. 


Sign  -  Sign  to  be  applied  to  angle  B  for  calculating  vessel  position,  normally 
equals  +1. 

Z(*)  -  Position  of  vessel  in  local  coordinates. 

X1,Y1  -  Position  of  start  point  for  along/cross  track  calculations. 

X2,Y2  -  Position  of  stop  point  for  along/cross  track  calculations. 

Course  -  Bearing  between  start  and  stop  points. 

At.Ct  -  Along  and  cross  track  distance. 

Rfl  -  Previous  R1  range  sample. 
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Rf2  -  Previous  R2  range  sample. 

Ref*(*)  -  Reference  station  list. 

Ref$\,*j  -  Reference  station  positions. 

Tp$  -  Location  of  transponder  #1. 

TP  -  Flag  to  indicate  where  reference  station  R1  is  located. 

Statistics  Variaoles 
Td(*j  -  TD  sample. 

Sample  -  Sample  number. 

Stats(*)  -  Statistics  summary  array  (see  Appendix  _ j . 

Cov(*J  -  Statistics  summary  array  (see  Appendix  _ ;. 

0_set(*;  -  Offset  array  (see  Appendix  _ ). 

S^*)  -  Statistics  summary  array  (see  Appendix  ). 

R(*j  -  Regression  summary  array  (see  Appendix  ). 

Data  Collection  Control  Variables  and  Flags 

Data  Collect  -  Data  initialization  flag  set  by  Data_col. 

Data  -  Data  collect  flag;  set  by  START. 

Dp  -  Data  pointer. 

Set  -  Data  set  numoer;  increments  every  100  samples. 

Sample  -  Sample  number. 

Stp  -  Stop  data  collection  flag,  set  Dy  STOP. 

Pause  -  Pause  data  collection  flag,  set  by  PAUSE. 

Mrs  -  Miniranger  data  collection  flag;  set  during  data  collection  initializa¬ 
tion 

0  indicates  Miniranger  data  to  be  collected. 

1  indicates  no  Miniranger  data. 

Plott  -  Type  of  plot  desireo,  1  =  TD  plot;  2  =  CT/AT;  3  =  xy. 

Plot*  -  Plot  data  flag  "Y"  =  plot,  "N"  =  no  plot. 
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Plotting  Variables 
TO  plot 

TD(*)  -  TO  sample. 

Sample  -  Sample  number. 

Xmn,  Xmx  -  X-axis  minimum  and  maximum. 

Ymn,  Ymx  -  Y-axis  minimum  and  maximum. 

Mp  -  Predicted  regression  line  slope. 

Xaxes,  Yaxes  -  Axes  label  for  data  to  be  plotted  in  X  and 
TOW,  TDX,  TOY,  TOZ. 

Prx,  Pry  - 

Cba,  Cbb,  Cbc  - 

Lcb,  Lcb2,  Lcb3  - 

Stp  -  Oata  collect  stop  flag. 

R(*)  -  Regression  analysis  summary  array. 

XY  Plot 

Sample  -  Sample  number. 

Wp_x,  Wp_y  -  Plot  origin. 

Ap(*)  -  Current  data  sample. 

R  -  Operating  range  about  origin. 

Cross/Along  Track 

Ct  -  Cross  track  distance. 

At  -  Along  track  distance. 

Rdist  -  Oistance  between  START  and  STOP  points. 

Sample  -  Sample  number. 

General 

PT$  -  Plot  data?  "Y"  =  yes;  "IT  *  No. 

Plott  -  Type  of  plot  desired. 

CTS  -  Cross  track  plot. 


axes,  e.g. 
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appendix  k 

twinax  cable  phasing 


The  proper  phasing  used  in  constructing  Monitor  System  Twinax  cables 
is  shown  below.  Note  that  the  left  hand  pin  of  the  first  connector  goes 
to  the  right  hand  pin  of  the  second  connector. 


